Herbers Excel-Forum - das Archiv
TXT Import in Excel
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
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
Betrifft: AW: TXT Import in Excel
von: steve
Geschrieben am: 18.02.2005 13:03:09
Was ist denn das für ein Fehler?
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
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