Textimport und Filter
12.09.2005 19:42:03
Axel
ich bin am Ende. Trotz stundenlangem Durchforsten der "Recherche" komme ich nicht so richtig weiter. Ich habe folgendes Problem.
Eine *.txt-Datei mit ca. 40 Spalten, getrennt durch Tabstopps, und ca. 15.000 Zeilen soll nach EXCEL importiert werden. Allerdings benötige ich nur ein "paar" Spalteneinträge aus der Textdatei, z.B. die 3. + 4. + 5. + 12. + 15. Spalte. Diese Inhalte sollen dann gezielt in eine Spalte des EXCEL-Tabellenblattes
geschrieben werden, etwa im Sinn, die 3.Spalte in "C", die 4.Spalte in "H" usw.
Ich versuche nun das ganze in ein Array zu pressen. Aber mein Grips reicht leider nicht aus.
Wie ordne ich aus dem Array die Daten den entsprechenden Zellen zu?
Vielleicht kann mir jemand helfen?!
Hier mein Anfang ....
'------------------------------------------------------------------------------------------
Sub Daten_Holen()
Dim iRow As Integer, iCol As Integer
Dim sFiles As String, sTxt As String
sFile = Range("B1").Value
iFile = FreeFile
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
If Dir(sFile) = "" Then
Beep
MsgBox "Die Textdatei wurde nicht gefunden !!!"
Exit Sub
End If
sSearch = "Eintrag2"
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
Range("A5") = sTxt
Exit Do
End If
Loop
Close iFile
Range("A1").Select
End Sub
'------------------------------------------------------------------------------------------
Sub Daten_Filter()
Dim A
Dim B
A = Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1))
B = A(1)
Sheets("Tabelle1").Cells(1, 1).Value = B
Range("A5").Select
End Sub
'------------------------------------------------------------------------------------------
Grüße, Axel