Das Archiv des Excel-Forums

txt. import

Bild

Betrifft: txt. import
von: Heiko F.

Geschrieben am: 02.10.2003 14:47:02

Hallo Excelfreunde ,
habe folgendes Modul in der recherche gefunden



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 = iRow + 1
iCol = 1
Loop
Close
End Sub





es funkt. super , aber leider brauche ich nicht die ganze txt-DAtei , sonden nur
die Spalte c7 bis c2886 .
Diese muß in der xls-Datei in F9-F2888 kopiert werden.

Wer kann mir helfen , wie kann man das Modul ändern ?

Vielen Dank schonmal.

Heiko
Bild


Betrifft: AW: txt. import
von: Hans W. Herber
Geschrieben am: 02.10.2003 15:02:59

Hallo Heiko,

folgender Code (nur lauffähig ab XL2000):


Sub TextImport()
Dim arr As Variant
Dim iRow As Integer, iCounter 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 = 9
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
iCounter = iCounter + 1
If iCounter > 6 And iCounter <= 2889 Then
arr = Split(sTxt, ";")
Cells(iRow, 9).Value = arr(2)
iRow = iRow + 1
End If
Loop
Close
End Sub


gruss hans


Bild


Betrifft: AW: txt. import
von: Reinhard
Geschrieben am: 02.10.2003 15:21:33

Hallo Heiko,
habs nicht gtestet müßte aber so laufen
Gruß
Reinhard

Open sFile For Input As #1
icol = 6 'F-Spalte
irow = 9
For n = 1 To 6 'ersten 6 Zeilen überlesen
Line Input #1, sTxt
Next n
Do Until EOF(1) Or irow > 2888
Line Input #1, sTxt
sText = sText & ";" 'damit hinter C ein ; steht falls c letzter wert in Zeile
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";")) ' A weg
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";")) ' B weg
Cells(irow, icol).Value = Left(sTxt, InStr(sTxt, ";") - 1) 'C in F schreiben
irow = irow + 1
Loop



Bild


Betrifft: Vielen Dank Euch beiden !
von: Heiko F.
Geschrieben am: 02.10.2003 15:31:59

o.T.


 Bild

Excel-Beispiele zum Thema " txt. import"

Zeichenfolgen in Zahlen nach Textimport download Textimport aus Text-Datei mit Smikoli als Feldtrenner download
Import aus dem Internet download Textimport mit Semikolon als Feldseparator download
In importierter Textdatei englische Werte in deutsche wandeln download Textdatei in Tabellenblatt importieren download
Nach Textimport Strings in Zahlen wandeln download Textdatei nach Begriff durchsuchen und Fundzeile importieren download
Diagramm exportieren und in Tabellenblatt importieren download Suchbegriffe in UserForm eingeben, Fundstelle importieren download
Benannte Bereich aus mehreren Arbeitsmappen importieren download Textdatei mit 250.000 Zeilen anlegen und importieren download
Name und Vorname suchen, Werte und Fundstellen importieren download Grafik importieren und in Zelle zentrieren download
Arbeitsblatt aus einer anderen Arbeitsmappe importieren download VBA-Import einer Textdatei mit Semikoli als Feldtrenner download
Textimport in UserForm-Elemente download Textdatei über QueryTables importieren download
Import einer Textdatei mit mehr als 256 Spalten download Textdatei in ein neues Tabellenblatt der Arbeitsmappe importieren download
Alle Textdateien eines Verzeichnisses importieren download Werte aus Textdatei importieren und umwandeln download
Import einer Grafikdatei aus dem Internet download Werte aus anderen Arbeitsmappen importieren download