txt Datei auswählen und dann in Excel einfügen
22.12.2004 10:52:24
Daniel
Ich hab schon ein bestehendes Makro auf meine Bedürnisse angepasst:
Sub txt_einlesen()
Worksheets(Array("test")).Select ' Immer in Tabelle mit "Name" einfügen
Dim Dateinummer As Integer
Dim test
Dim Zeile As Long
Dateinummer = FreeFile()
Zeile = 5 ' Zeile 5 als Startwert
Open "c:\temp\test.txt" For Input Access Read As Dateinummer
Do While Not EOF(Dateinummer) ' Schleife bis Dateiende.
Input #Dateinummer, test ' Ein Zeichen lesen.
Cells(Zeile, 3).Value = test 'Zeile, Spalte als Startwert
Zeile = Zeile + 1 ' Zeile pro Zeile in TXT mit Wert beschreiben
Loop
Close Dateinummer
End Sub
Das funktioniert auch.
Ich möchte aber jezt noch den Open "Pfad" als Variable haben und mir die Datei auswählen. Mein bisheriger Versuch sieht so aus:
Sub txt_einlesen()
Worksheets(Array("test")).Select ' Immer in Tabelle mit "Name" einfügen
Dim Dateinummer As Integer
Dim test
Dim Zeile As Long
Dateinummer = FreeFile()
Zeile = 5 ' Zeile 5 als Startwert
Dim FileToOpen As String
FileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", MultiSelect)
If FileToOpen = "Falsch" Then Exit Sub
Open "filetoopen" For Input Access Read As Dateinummer
Do While Not EOF(Dateinummer) ' Schleife bis Dateiende.
Input #Dateinummer, test ' Ein Zeichen lesen.
Cells(Zeile, 3).Value = test 'Zeile, Spalte als Startwert
Zeile = Zeile + 1 ' Zeile pro Zeile in TXT mit Wert beschreiben
Loop
Close Dateinummer
End Sub
Jedoch scheint das nicht so einfach zu sein :)
Vielen Dank für die Hilfe
Frohes Fest
Daniel Toennessen