Import nach unten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Import nach unten von: steve
Geschrieben am: 07.04.2005 11:21:56

Hallo,

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
Bild


Betrifft: AW: Import nach unten von: Tobias Marx
Geschrieben am: 07.04.2005 11:26:06

Servus!

Das hier is untested, aber im Prinzip musst du nur irow und icol vertauschen in den Befehlen, in denen er die Werte schreibt.

'Schnipsel anfang
            Do While InStr(stxt, ";")
                Cells(icol, irow).Value = Left(stxt, InStr(stxt, ";") - 1)
                stxt = Right(stxt, Len(stxt) - InStr(stxt, ";"))
                icol = icol + 1
            Loop
            Cells(icol, irow).Value = stxt
            irow = irow + 1
            icol = 1
        Loop
'Ende schnipsel

Gruss

Tobias


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Import nach unten"