Gruppe
Extern
Bereich
TextImport
Thema
Textimport mit Semikolon als Feldseparator
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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