CSV Import - nicht alle Zeilen werden importiert
09.02.2016 16:28:36
Cora
ich habe mit Makro-Programmierung leider quasi noch keine Erfahrung, und habe mir mit Vorlagen und Tipps&Tricks hier aus dem Forum eine Importmöglichkeit für CSV-Dateien zusammengebaut.
Leider wird hierbei nur der Inhalt der ersten 16 Zeilen meiner CSV-Datei importiert. Eine (nicht die erste) Spalte hat aber >100 Zeileneinträge.
Was muss ich ändern um die alle importiert zu bekommen?
Bin über Hilfe dankbar - wahrscheinlich ist es recht einfach... aber ich steh gerade auf dem Schlauch.
Danke schonmal!
VG Cora
Sub Datei_Importieren()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
Range("A10:BM100").ClearContents 'Löscht Inhalt des angegebenen Bereichs, Formatierung bleibt _
_
"Clear" statt "ClearContents" löscht auch Formatierung
Const cStrDelim As String = ";" 'Trennzeichen
Const cLngFirst As Long = 10 'erste zu beschreibende Zeile
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = "P:\XXX\*.csv" 'Pfad anpassen
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName "" Then
Application.ScreenUpdating = False
Open strFileName For Input As #1
arrDaten = Split(Input(LOF(1), 1), vbCrLf)
Close #1
For lngR = 1 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), cStrDelim)
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, cLngFirst)
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End If
End Sub
Anzeige