TXT Import in Excel

• TXT Import in Excel von steve vom 18.02.2005 11:55:21
• AW: TXT Import in Excel - von Uduuh am 18.02.2005 12:30:29
  • AW: TXT Import in Excel - von steve am 18.02.2005 13:03:09
  • AW: TXT Import in Excel - von steve am 18.02.2005 13:05:22
    • AW: TXT Import in Excel - von andreas e am 18.02.2005 13:07:34

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

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