TXT-Import: Index außerhalb des ...
12.02.2016 08:00:40
Manuela
Ich möchte TXT-Dateien per Makro in meine Exceldatei importieren. Dies funktioniert auch soweit, allerdings ist mein Problem, dass die Anzahl der "Spalten" unterschiedlich ist.
Mein Script (ein Teil davon):
arrSrc = Split(strTmp, strDelimit, -1, vbTextCompare)
With ws
'ExcelSpalte = TXTSpalte
Cells(lngLast, 1) = arrSrc(0)
Cells(lngLast, 2) = arrSrc(1)
Cells(lngLast, 3) = arrSrc(2)
Cells(lngLast, 4) = arrSrc(3)
Cells(lngLast, 5) = arrSrc(4)
Cells(lngLast, 6) = arrSrc(5)
Cells(lngLast, 7) = arrSrc(6)
Cells(lngLast, 8) = arrSrc(7)
Cells(lngLast, 9) = arrSrc(8)
End With
lngLast = lngLast + 1
Meine Beispieldatei:
überschrift
a|b|c|d|e|f|g|h|i
a|b|c|d|e|f|g
Delimiter = |Die Überschrift lasse ich überlesen und die 2. Zeile wird korrekt importiert, aber bei der 3. Zeile bricht VBA bei Cells(lngLast, 8) = arrSrc(7) ab und gibt als Laufzeitfehler Index außerhalb des gültigen bereichs aus.
Ich dachte dann an sowas wie If arrSrc(7) "" Then Cells(lngLast, 8) = arrSrc(7), aber dies gibt mir dieselbe Fehlermeldung aus.
Hat jemand eine Idee für mein Problemchen?
Viele Grüße