|
Hallo liebe Leute,
in meiner bosherigen VBA Programmieurng habe ich die Pfade der zu öffnenden Dateien fix eingetragen etwa:
ChDir "C:\xxx\xxxx\xxxx\xxx\xxx"
Workbooks.OpenText fileName:= _
"C:\xxx\xxxx\xxxx\xxxx\xxx\Dateiname.txt", Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Nun möchte ich es variabilisieren. Ich möchte, dass ein Dialogfeld geöffnet wird, der mich fragt wo meine Datei gespeichert ist. Die Eingabe soll dann einer variablen zugeordnet werden z.B. "Pfad1".
Der Name der zu öffnenden Datei wird dann in Zelle C5 des Excel Sheets in dem sich der Knopf mit dem Makro befindet. eingetragen und soll auch einer Variablen zugeordnet werden z.B. Dateiname1.
Sodass der Quellcode dann in etwa so aussieht:
ChDir "Pfad1"
Workbooks.OpenText fileName:= _
"Pfad1 & "\" & Dateiname1", Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Diese Abfrage soll er dann 4 mal durchlaufen, da im Laufe meines Codes 4 Dateien geöffnet werden.
Da ich in VBA ein echter Anfänger bin, bräuchte ich hierbei von 0 auf Hilfe. Ich hoffe meine Erläuterungen sind Verständlich genug.
Ich freu mich auf eure Beiträge!
Viele Grüße
Julian
|