TXT Import in Excel

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

Betrifft: TXT Import in Excel von: steve
Geschrieben am: 18.02.2005 11:55:21

Hallo Leute,

ich habe für eine Tabelle folgenden Import aus einer Txt-Datei:


Sub Textimport()
    Dim irow As Integer, icol As Integer
    Dim sfile As String, stxt As String
    sfile = Range("P1").Value
    If Dir(sfile) = "" Then
        Beep
        MsgBox "Datei wurde nicht gefunden!"
        Exit Sub
    End If
    irow = 1
    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 = irwo + 1
            icol = 1
        Loop
    Close
    
End Sub


Dieses Makro spuckt mir die gewünschten Daten aus. Allerdings ohne Überschrift. Wie kann ich das Makro umschreiben, dass die Überschriften in Zeile 1 ausgegeben werden und die Daten in Zeile 2?

MfG

Steve
Bild


Betrifft: AW: TXT Import in Excel von: Uduuh
Geschrieben am: 18.02.2005 12:30:29

Hallo,
mit irow=2 anfangen.
Achtung! Fehler in Zeile
irow=irwo+1

Gruß aus'm Pott
Udo



Bild


Betrifft: AW: TXT Import in Excel von: steve
Geschrieben am: 18.02.2005 13:03:09

Was ist denn das für ein Fehler?


Bild


Betrifft: AW: TXT Import in Excel von: steve
Geschrieben am: 18.02.2005 13:05:22

Es gibt ein Problem mit der 2.

Er spuckt mir dann die Überschrift in die 2. Spalte aus und die importierten Textinhalte in Zeile 1.

Was kann ich denn dagegen tun?

MfG

Steve


Bild


Betrifft: AW: TXT Import in Excel von: andreas e
Geschrieben am: 18.02.2005 13:07:34

Hallo steve -
mit Fehler meinte Udo bestimmt den Buchstabendreher

irow=irwo+1

es muss heissen :

irow = irow +1


 Bild

Beiträge aus den Excel-Beispielen zum Thema "TXT Import in Excel"