VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Textimport mit Semikolon als Feldseparator

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und TextImport