Import aus TXT-Datei
23.06.2004 12:05:38
Holger
habe folgenden Code der mir aus einer Textdatei mit dem Feldseperator "Komma"
die Daten in bestimmte Zellen schreibt.
1.Ist es möglich die Anzahl der Daten(hier 4 Werte) variabel zu gestalten,
so das das Makro nach alle Daten suchet, bis zum Ende. Die Anzahl der Daten ist unterschiedlich.
2.kann der Seperator in ein Hochkomma umgewandelt werden ?
Danke für die Hilfe !
Sub TextImport()
Dim arr(1 To 4) As String
Dim iFile As Integer, icounter As Integer
Dim sFile As String
sFile = "C:\test.txt"
iFile = FreeFile
Open sFile For Input As iFile
Do Until EOF(iFile)
Input #iFile, arr(1), arr(2), arr(3), arr(4)
Loop
Close
For icounter = 1 To 4
Cells(icounter, 1).Value = arr(icounter)
Next icounter
End Sub
Anzeige