Öffnen einer *.txt
26.03.2008 14:30:00
Edmund
und schon hat sich das nächste Problem aufgetan. Dieser Syntax macht mich noch ganz kirre...
Ich will per Öffnen-Dialog eine *.txt-Datei öffnen, aber unter im Makro definierter Textkonvertierung (Trennzeichen, Zellenformat, etc.).
Mein einziges Problem ist dabei, wie ich auf den Dateipfad in einer Variablen zugreifen kann (fett markiert).
Hier mal mein bisheriger, nicht funktionierender Code:
Sub opentxt()
Dim DateiName As Variant
DateiName = Application.GetOpenFilename("TXT-Dateien,*.txt", , "Datei öffnen")
If DateiName = False Then Exit Sub
Workbooks.OpenText FileName:= _
DateiName, Origin _
:=4690, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 4), Array(12, 1), Array(13, 4), Array(14, 4), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 4), _
Array(23, 1), Array(24, 1)), TrailingMinusNumbers:=True
End Sub
Gruß