CSV-Import mittels VBA ohne Leerzeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
hier mal eine fixe Idee zu Deinem Vorhaben via Classic VBA.
Schau mal, ob's in Deinem Sinne funktioniert und auch die 500.000 Zeilen schafft.

[+][-] 


	
	
	
	


Sub Test()
 Dim iFF As Integer, iZeile As Long, iOutZeile As Long
 Dim sFilename As String, sData() As String, sSpArr() As String
 Dim bCheck As Boolean
 
 Application.ScreenUpdating = False
 
 With ThisWorkbook.Sheets("Update")

'Datei auswählen
  sFilename = Application.GetOpenFileName("csv files (*.csv), *.csv")
  If sFilename <> "" Then

'Daten in Zeilen-Array einlesen
     iFF = FreeFile()
     Open sFilename For Input As iFF
     sData = Split(Input(LOF(iFF), #iFF), vbCrLf)
     Close iFF

'Alle Zeilen durchgehen
     For iZeile = 0 To UBound(sData)
       If sData(iZeile) <> "" Then                 'Leerzeile?
        sSpArr = Split(sData(iZeile), ",")         'Trenner ggf. anpassen
        bCheck = True
        If UBound(sSpArr) > 2 Then
           If sSpArr(2) = "" Then bCheck = False    '3. Feld leer?
        End If
        If Len(sData(iZeile)) = UBound(sSpArr) Then bCheck = False
        If bCheck = True Then
           iOutZeile = iOutZeile + 1
           .Cells(iOutZeile, "A").Resize(1, UBound(sSpArr) + 1) _
              = Application.Transpose(Application.Transpose(sSpArr))
        End If
       End If
     Next iZeile
     
     MsgBox "Habe Fertig", vbInformation, "Daten einlesen"
   
   End If

 End With
 
 Application.ScreenUpdating = True

End Sub

viele Grüße aus Freigericht
Karl-Heinz

[+][-] Sub Test() Dim iFF As Integer, iZeile As Long, iOutZeile As Long Dim sFilename As String, sData() As String, sSpArr() As String Dim bCheck As Boolean Application.ScreenUpdating = False With ThisWorkbook.Sheets("Update") 'Datei auswählen sFilename = Application.GetOpenFileName("csv files (*.csv), *.csv") If sFilename <> "" Then 'Daten in Zeilen-Array einlesen iFF = FreeFile() Open sFilename For Input As iFF sData = Split(Input(LOF(iFF), #iFF), vbCrLf) Close iFF 'Alle Zeilen durchgehen For iZeile = 0 To UBound(sData) If sData(iZeile) <> "" Then 'Leerzeile? sSpArr = Split(sData(iZeile), ",") 'Trenner ggf. anpassen bCheck = True If UBound(sSpArr) > 2 Then If sSpArr(2) = "" Then bCheck = False '3. Feld leer? End If If Len(sData(iZeile)) = UBound(sSpArr) Then bCheck = False If bCheck = True Then iOutZeile = iOutZeile + 1 .Cells(iOutZeile, "A").Resize(1, UBound(sSpArr) + 1) = sSpArr End If End If Next iZeile MsgBox "Habe Fertig", vbInformation, "Daten einlesen" End If End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

CSV-Import mittels VBA ohne Leerzeilen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV-Import mittels VBA ohne Leerzeilen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread