Import nach unten
07.04.2005 11:21:56
steve
da ich bei meinem Import an die Grenzen von Excel gestoßen bin, müsste diese Funktion jetzt umgeschrieben werden. Der Import sieht folgendermaßen aus:
Sub Textimport()
Dim irow As Integer, icol As Integer
Dim sFile As String, stxt As String
sFile = Range("A1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
irow = 2
icol = 1
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, stxt
Do While InStr(stxt, ";")
Cells(irow, icol).Value = Left(stxt, InStr(stxt, ";") - 1)
stxt = Right(stxt, Len(stxt) - InStr(stxt, ";"))
icol = icol + 1
Loop
Cells(irow, icol).Value = stxt
irow = irow + 1
icol = 1
Loop
Close
End Sub
Er hat die Funktion, dass aus einer TXT Datei, die in A1 der Tabelle benannt ist Daten zieht und diese ab Zeile 1 Spalte 2 anfängt nebeneinander aufzulisten.
Das Feldtrennzeichen ist ";".
Was muss ich ändern, wenn er mir die Daten nicht nebeneinandern, sondern untereinander schreiben soll?
Vielen Dank im Voraus.
MfG
Steve