Textdatei automatisch importieren
02.11.2005 14:22:19
Thias
als User-Looser stehe ich vor dem Problem, Daten aus einer Textdatei importieren zu wollen (müssen).
Die Daten der Textdatei haben den Aufbau:
1.222;3.345 1.123;1.123
1.222;2.234 1.432;3.234
x.xxx;x.xxx x.xxx;x.xxx
Oder vielleicht besser in Worten:
Zahl1;Zahl5 -Tabulator- Zahl9;Zahl13
Zahl2;Zahl6 -Tabulator- Zahl10;Zahl14
Zahl3;Zahl7 -Tabulator- Zahl11;Zahl15
Zahl4;Zahl8 -Tabulator- Zahl12;Zahl16
Die zu trennenden Daten stehen also erstens: mit Semikolon getrennt und zweitens: mit einem Tabulator getrennt (ist hier nicht gut sichtbar, weil ein Tabulator anscheinend nicht angezeigt wird).
In Excel möchte ich diese Zahlen nun gerne in 4 Spalten importiert haben.
Dazu habe ich hier schon als ersten Ansatz ein Makro gefunden, mit dem ich die durch das Semikolon getrennten Zahlen einlesen kann. Dieses sieht wie folgt aus:
Sub TextImport()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sText As String
sFile = Range("G1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 1
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sText
Do While InStr(sText, ";")
Cells(iRow, iCol).Value = Left(sText, InStr(sText, ";") - 1)
sText = Right(sText, Len(sText) - InStr(sText, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sText
iRow = iRow + 1
iCol = 1
Loop
Close
End Sub
Nun würde ich dieses Makro noch gerne erweitern, damit auch die durch den Tabulator getrennten Zahlen nicht in eine Zelle importiert werden, sondern in eigene Zellen (also eine eigene Spalte). Wenn man den umständlichen Weg über -> Daten -> externe Daten importieren -> Daten importieren geht, dann kann man in den folgenden Schritten den Tabulator als Trennzeichen auswählen. Allerdings möchte ich das nun gerne automatisiert haben, so dass ich letztendlich das Makro nur einem Button zuweisen muss, und der Importvorgang dann automatisch abläuft.
Kann mir dabei jemand evtl. weiterhelfen?
Anzeige