ich habe folgendes Problem:
Ich muss per VBA Makro mehrere Textdateien in Excel einlesen und habe dafür folgendes Programm geschrieben:
A = 1
d = Dir("C:\Dateipfad\")
Do While d ""
x = Sheets(A).UsedRange.Rows.Count
Open "C:\Dateipfad\" & d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Cells(x, 1) = Replace(temp, vbTab, " ")
x = x + 1
Loop
Close #1
For j = 1 To x
Text = Split(Cells(j, 1), " ")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
d = Dir
Loop
Und hier ist ein Ausschnitt aus den einzufügenden Textdateien:
10838201112021150 86 73 24 30 48 47 51 68 81 9470 0
10838201112021200 86 74 22 26 49 47 51 68 81 9470 0
10838201112021210 86 76 22 24 50 48 51 68 81 9469 0
10838201112021220 88 75 23 21 51 48 51 68 81 9468 0
10838201112021230 94 73 24 23 51 49 51 68 81 9469 0
10838201112021240 102 67 24 34 52 49 51 68 81 9468 0
10838201112021250 109 64 25 37 53 49 51 67 81 9467 0
10838201112021300 107 62 25 44 54 50 51 67 81 9468 0
So jetzt ist mein Problem das beim Einfügen der Daten die Spalten verrutschen.
Mir ist bewusst, dass dies an den verschiedenen Anzahlen an Leerzeichen zwischen den Zahlen liegt.
Gibt es dafür eine bessere Lösung? ( evtl mit einer Array Funktion)
Viele Grüße
Michael