Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Textimport mit Semikolon als Feldseparator
Gruppe
TextImport
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