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"