mit folgendem Code importiere ich eine Textdatei in meine Tabelle (Variablendeklaration entfernt):
Sub Import()
strBlatt = ActiveSheet.Name
strContent = "Tabelle1"
varRange = "A2"
strFile = ThisWorkbook.Path & "\test.txt"
If Dir(strFile) "" Then
Set wks = Sheets(strContent)
fFile = strFile
Workbooks.OpenText Filename:=fFile, Tab:=False, semicolon:=True, comma:=False, Space:=False, _
_
other:=False
ActiveSheet.UsedRange.Copy
wks.Range(varRange).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
End If
End Sub
Befindet sich in der Textdatei zwischen den Inhalten ein Leerschlag, so wird beim Importieren dieser Leerschlag als Trennzeichen erkannt und das Semikolon ignoriert.
Befindet sich in der Textdatei zwischen den Inhalten kein Leerschlag, funktioniert der Code einwandfrei.
Inhalt der funktionierenden Textdatei:
Teil;10;4;Komfort7x24;Ja;Nein;Ja;Nein;Nein;Nein;Teil104Komfort7x24JaNeinJaNeinNeinNein
Voll;10;4;Komfort7x24;Ja;Nein;Ja;Nein;Nein;Nein;Voll104Komfort7x24JaNeinJaNeinNeinNein
Voll;15;4;Komfort7x24;Ja;Nein;Ja;Nein;Nein;Nein;Voll154Komfort7x24JaNeinJaNeinNeinNein
Inhalt der nicht funktionierenden Textdatei (Gleicher Inhalt mit " " nach Komfort):
Teilservice;10;4;Komfort 7x24;Ja;Nein;Ja;Nein;Nein;Nein;Teilservice104Komfort _
7x24JaNeinJaNeinNeinNein
Vollservice;10;4;Komfort 7x24;Ja;Nein;Ja;Nein;Nein;Nein;Vollservice104Komfort _
7x24JaNeinJaNeinNeinNein
Vollservice;15;4;Komfort 7x24;Ja;Nein;Ja;Nein;Nein;Nein;Vollservice154Komfort _
7x24JaNeinJaNeinNeinNein
Downloads:
Excel File: https://www.herber.de/bbs/user/108835.xlsm
Funktionierende Textdatei: https://www.herber.de/bbs/user/108836.txt
Nicht funktionierende Textdatei: https://www.herber.de/bbs/user/108837.txt
Was mache ich falsch bzw was muss ich ändern?
semicolon:=True und Space:=False müsste doch passen - oder?
Besten Dank für Eure Hilfe! Henner