ich würde gerne eine TEXT datei mit 36.000 Einträgen analysieren. Lieder kann ich die txt-Datei nicht einfach in calc öffen und bearbeiten. Denn ich bekomme die Daten einfach nicht auf calc, oder die "0" der Feldbeschriftung macht mir Probleme. Also habe ich mir gedacht, ich nutze das Forum, passe den Code an und ich kann die Daten Importieren.
I.
Leider scheitere ich gerade mit dem Code schon in der ersten Zeile (BASIC Laufzeitfehler) Gerät E/A fehlt.
Wenn ich den Pfad im Explorer eingebe, springt die TXT Datei aber gleich auf.
Habe ich was falsch gemacht?
II. Meine Datenquelle hat kein "," zwischen den Datenblöcken (so sehen die Daten in der Textdatei aus: 083771Milch oder 08377120200323. Wie kann ich denn nach 7 Ziffern also ab der 8. Ziffer die folgenden Zahlen und Buchstaben in die 2. Spalte importieren?
VG Peter
Code: Alles auswählen
REM ***** BASIC *****
Sub Einlesen()
Dim objDatei as Object
Dim objBlaetter As Object
Dim objBlatt As Object
Dim objZelle As Object
Z = 1
Open "C:\TEST_BV\TEST.txt" For Input As 1#
Do While Not EOF(1)
Line Input #1, Datei
einzel = Split(Datei, ";")
objDatei = ThisComponent
objBlatt = objDatei.Sheets(1)
For i = 0 To Ubound(einzel())
objZelle = objBlatt.getCellByPosition(i, Z)
objZelle.string = einzel(i)
Next i
Z = Z + 1
Loop
Close #1
End Sub