Ich war auf der Suche nach einen Textausleser, sprich einem Cod welches die Daten aus einer txt Datei auslesen kann....GEFUNDEN.... !!!!
Doch jetzt zu meinem Problem: Ich bin absoluter Neuling in diesem Bereich und verstehe nicht, in welchen Dateipfad die auszulesende Datei sein muss?!?!?
Wem es hilft: hier ist nochmal der Code:
Sub TextImport()
Dim arr(1 To 6) As String
Dim iFile As Integer, iCounter As Integer
Dim sFile As String
sFile = Application.Path & "\texttest.txt"
iFile = FreeFile
Open sFile For Output As iFile
Print #iFile, "Zeile 1, Zeile 2, Zeile 3, Zeile 4, Zeile 5, Zeile 6"
Close
Open sFile For Input As iFile
Do Until EOF(iFile)
Input #iFile, arr(1), arr(2), arr(3), arr(4), arr(5), arr(6)
Loop
Close
Kill sFile
For iCounter = 1 To 6
Cells(iCounter, 1).Value = arr(iCounter)
Next iCounter
End Sub
Des weiteren wollte ich fragen, ob es möglich ist, dass mit Hilfe eines Code auch der Inhalt der Datei nach dem Auslesen gelöscht wird? Quasi wie der Befehl "ausschneiden" unter Windows...