Das Archiv des Excel-Forums
txt. import
- txt. import von Heiko F. vom 02.10.2003 14:47:02
- AW: txt. import - von Hans W. Herber am 02.10.2003 15:02:59
- AW: txt. import - von Reinhard am 02.10.2003 15:21:33
- Vielen Dank Euch beiden ! - von Heiko F. am 02.10.2003 15:31:59
- AW: txt. import - von Hans W. Herber am 02.10.2003 15:02:59
 |
Betrifft: txt. import
von: Heiko F.
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
 |
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
|
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
|
Betrifft: Vielen Dank Euch beiden !
von: Heiko F.
Geschrieben am: 02.10.2003 15:31:59
o.T.
| |
