Gruppe
Extern
Bereich
TextImport
Thema
Textimport aus Text-Datei mit Smikoli als Feldtrenner
Problem
Wenn ich eine Text-Datei manuell importiere, wird das Semikolon als Feldseparator erkannt, steuere ich diese Vorgang über ein englischsprachiges Makro, ist dies nicht der Fall. 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: basMain
Sub Import()
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
Workbooks.OpenText sFile, _
DataType:=xlDelimited, Semicolon:=True
End Sub