Gruppe
Extern
Problem
Wenn ich eine *.txt-Datei mit Semikolon als Feldtrenner manuell öffne, wird dieser erkannt, öffne ich die Datei mit Makro, wird das Semikolon nicht erkannt. Wie kann ich das ändern?
StandardModule: Modul1
Sub OpenText()
Dim sFile As String
sFile = Application.Path & "\texttest.txt"
Open sFile For Output As #1
Print #1, "Text 1; Text 2; Text 3"
Close
Workbooks.OpenText _
FileName:=sFile, _
DataType:=xlDelimited, _
semicolon:=True
MsgBox "Weiter"
ActiveWorkbook.Close savechanges:=False
Kill sFile
End Sub