Textdatei in Excel importieren automatisieren

[Thomas Sommer]

Hallo Ng,

ich muss eine Textdatei immer wieder ins Excel importieren. Diese hat immer
den gleichen Aufbau.
Ich importiere diese mit fester Breite und stze dann immer die Trennung
händisch. Kann man das automatisieren und wenn ja wie? Kann man die
Spezifikation für die Trennung irgendwie fest hinterlegen?

Vielen Dank!!

mfg

Thomas Sommer

[Eike Bimczok]

Hallo Thomas,

mit folgendem Makro kommst du schonmal weiter. Wenn du uns jetzt noch
sagst, wie die Trennung aussehen soll, dann lässt sich das auch noch in
das Makro einfügen.

Gruß
Eike


Sub txtLesen()

Dim outputRow As Long, outputCol As Long
outputRow = 1
outputCol = 1

fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")

If fileToOpen <> False Then

Dim Textzeile
Open fileToOpen For Input As #1 ' Datei öffnen.

Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, Textzeile ' Zeile in Variable einlesen.
Cells(outputRow, outputCol).Value = Textzeile
outputRow = outputRow + 1
Loop

Close #1
End If

End Sub

Post by Thomas Sommer
Hallo Ng,
ich muss eine Textdatei immer wieder ins Excel importieren. Diese hat immer
den gleichen Aufbau.
Ich importiere diese mit fester Breite und stze dann immer die Trennung
händisch. Kann man das automatisieren und wenn ja wie? Kann man die
Spezifikation für die Trennung irgendwie fest hinterlegen?
Vielen Dank!!
mfg
Thomas Sommer

[Jörg Eisenträger]

Hallo Thomas,

Post by Thomas Sommer
ich muss eine Textdatei immer wieder ins Excel importieren. Diese hat immer
den gleichen Aufbau. ... Kann man die Spezifikation für die Trennung irgendwie fest hinterlegen?

Importing And Exporting To Text Files per VBA:
http://www.cpearson.com/excel/imptext.htm


Gruß
Jörg