Öffnen von Excel-File bei laufendenm VBA-Projekt

hallo dani,
du hattest dich ja bereits einmal meinem problem gewidmet.
mein posting ist leider bereits im archiv, ich hatte keine möglichkeit mehr, zu antworten.... (14.04.2005 17:35:11)
ich habe ein vba-projekt, also eine geöffnete excel-tabelle, mit einer userform im vordergrund, die nicht verschiebbar oder zu schließen ist.
über dieses vba-projekt soll nach aktivieren eines command-button alle werte aus einer bestimmten spalte aus eben dieser neuen zu öffnenden excel-tabelle ausgelesen werden. das sind circa 1-100 elemente, die dann in ein multi-choice-feld übertragen werden sollen.
die neue zu öffnende datei hat allerdings jede kalenderwoche einen neuen dateinamen und in der betroffenen spalte auch jedesmal neue werte. der dateiname sieht folgendermaßen aus:
xyz_0516 (für das jahr 2005 und die aktuelle kw16) in kw17: xyz_0517
die zu öffnende datei soll nur gelesen werden, also nicht neu gespeichert oder verändert werden.
ich benötige aus der datei dann je nach auswahl aus der multibox noch werte aus einigen spalten, die in der gleichen zeile stehen, je nachdem welche objekte ausgewählt wurden.
danke für jede unterstützung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo dani,
also den ersten code habe ich verstanden, denke ich.
eine abschließende frage hierzu:
der dateiname wird vorgegeben, d.h. die datei ist schon unter diesem dateinamen gespeichert und ich benötige eine funktion, die mir jede kw neu mitteilt, wie der dateiname denn nun aussieht, damit das vba-projekt diese dann auch öffnen kann.
in simplen worten: ich speichere ende der alten kw die datei unter dem neuen namen für die neue kw.


Function MakeFilename(d As Date) As String
Dim t As Date
Dim KW As Integer
Dim Dateinamen As String
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
Dateinamen = "xyz_" & KW & Right(t, 2)
MakeFilename = Dateinamen
End Function

nun zum zweiten teil des codes:


Function Zelle_auslesen(Pfad, File As String, Zeile, Spalte As Long)
Zelle_auslesen = Application.ExecuteExcel4Macro("'" & Pfad & "[" & File & "]" & "Tabelle1'!R" & Zeile & "C" & Spalte & " ")
End 

Function
Tabelle1: ist wieder dynamisch und heisst wie der dateiname - z.b.: kw0516.
das habe ich vergessen zu erwähnen, aber da kann ich ja den oberen teil des codes umbauen.
beim auslesen der spalte "L":
alle werte, die dort untereinander stehen kopieren und in das multichoice einfügen.
die zeilen nicht komplett, sondern nur die dazugehörigen werte in spalte D, E und O!
diese dann aber nur in ein zu dem file mit dem vba-projekt gehörende excel-tabelle kopieren.....

Function MakeFilename(d As Date) As String ' Setzen des Dateinamens für den WIP-Report Dim t As Date Dim KW As Integer Dim Dateinamen As String t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1) KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 Dateinamen = "WIP Report " & KW & Right(t, 2) MakeFilename = Dateinamen End Function

Beliebteste Forumthreads (12 Monate)

Öffnen von Excel-File bei laufendenm VBA-Projekt

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Öffnen von Excel-File bei laufendenm VBA-Projekt

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread