Thema: Textimport mit Semikolon als Feldseparator

Home

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?

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

Dateiname externer Datei ändern	Tabellenblatt aus externer Exceldatei kopieren
ConboBox mit externe Daten füllen	Textimportassistent
Wert in externer Datei suchen	Aufruf externer Programme
Externe Bezüge auslesen mit VBA	Externe Verküpfung anpassen
Pivot mit Externer DB am Limit?	Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden	externes Verzeichnis ansprechen
Externe Datenquelle via VBA	Pivot mit Externer DB UNION funzt nich
Nur externe Bezüge rausnehmen	*xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen	Makro: Bezug auf externes xls-File?
Wert an externes Programm übergeben	Externe Excel-Verknüpfungen automatisiert ändern
Verlinkung externer Arbeitsmappen	Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen	neue Zeile und externe Bezüge....
Externe Verknüpfung finden	externe Bezüge
Summenprodukt + Externe Bezüge	Datenbank in externer Datei
Textimport-Assistent	Fehler beim Kopieren von externer Tabelle
anzahl Blätter externer Excel-Datei	Externe Daten aus Access
Anpassung Makro für Textimport	Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm	Worksheetzugriff auf externe Datei
Dropdown - externe Daten	Externe Bezüge
Zeitanzeige auf USF wenn ein externes Progr. läut	Externe Daten (QueryTable) ab 1 nummerieren
Schnittstelle extern mit Lampen	Zelleninhalt für externes Programm kopieren
Archivieren externer Dateien in Arbeitsblatt	Externer Vergleich
externe Verknüpfung per Makro einfügen	Externe Verknüpfungen
Externen Text mit Makro einfügen	Abfragekriterium externe Daten verändern
Daten aus externer Mappe einfügen	externes Programm ausführen