Herbers Excel-Forum - das Archiv

TXT Import in Excel

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
Excel-Beispiele zum Thema "TXT Import in Excel"
Zeichenfolgen in Zahlen nach Textimport Textimport aus Text-Datei mit Smikoli als Feldtrenner
Import aus dem Internet Textimport mit Semikolon als Feldseparator
In importierter Textdatei englische Werte in deutsche wandeln Textdatei in Tabellenblatt importieren
Nach Textimport Strings in Zahlen wandeln Textdatei nach Begriff durchsuchen und Fundzeile importieren
Diagramm exportieren und in Tabellenblatt importieren Suchbegriffe in UserForm eingeben, Fundstelle importieren