AW: Importieren von Daten aus txt-Datei
17.01.2007 23:08:24
Daten
Hallo stefan,
mit folgendem Makro kannst du die Daten der Textdatei Zeilenweise in ein Excelblatt importieren. Makro in ein Modul der Datei einfügen und aus einem leeren Exceltabellenblatt heraus starten.
Gruss
Franz
Sub TextImport()
Dim wks As Worksheet, zeile As Long, TextDatei, FF
'Deklarationen für die zu importierenden Daten in den Spalten, diese entsprechend anpassen
Dim SpalteA As String, SpalteB As Double, SpalteC As Double, SpalteD As String
'Text-Datei im Dialogfenster auswählen
TextDatei = Application.GetOpenFilename("Text(*.txt),*.txt", , "Textdatei mit Daten auswählen")
If TextDatei = False Then Exit Sub
FF = FreeFile
Open TextDatei For Input As #FF
Set wks = ActiveSheet
With wks
zeile = 1
.Cells(zeile, "A").Value = "Name"
.Cells(zeile, "B").Value = "Nummer"
.Cells(zeile, "C").Value = "Nummer1"
.Cells(zeile, "D").Value = "Datum"
Do Until EOF(FF)
'Daten einlesen
Input #FF, SpalteA
Input #FF, SpalteB, SpalteC, SpalteD
'Daten in Tabelle übertragen
zeile = zeile + 1
.Cells(zeile, "A").Value = SpalteA 'Name
.Cells(zeile, "B").Value = SpalteB 'Nummer
.Cells(zeile, "C").Value = SpalteC 'Nummer1
.Cells(zeile, "D").Value = CDate(SpalteD) 'Datum
Loop
End With
Close #FF
End Sub
Getestet mit folgenden Daten in einer Textdatei:
name
123, 345, 10.02.2005
name1
234, 34566, 10.12.1995
name3
345566, 23344, 10.12.2002