Import große CSV

Sub ImportCSV(FileName, ws As Worksheet)
If FileName  False Then
Application.ScreenUpdating = False
ws.Cells.Clear
ws.Columns("A:AZ").NumberFormat = "@"
Workbooks.OpenText FileName:=FileName, Local:=True
ActiveSheet.UsedRange.Copy ws.Cells(1)
ActiveWorkbook.Close SaveChanges:=False
End If
End Sub

Function CreateCSV(strPath As String, strDateiname As String) As Boolean
Dim i As Long, lngZeile As Long, lngSpalte As Long, j As Long
Dim strZeile As String
Dim f As Integer
lngZeile = tbl_CSV.Cells(tbl_CSV.Rows.Count, 1).End(xlUp).Row
lngSpalte = tbl_CSV.Cells(1, Columns.Count).End(xlToLeft).Column
f = FreeFile
Open strPath & strDateiname For Output As #f
For i = 1 To lngZeile
For j = 1 To lngSpalte
If j  Empty Then
CreateCSV = True
End If
strZeile = ""
Next i
Close #1
End Function

Function AppendCSV(strPath As String, strDateiname As String) As Boolean
Dim i As Long, lngZeile As Long, lngSpalte As Long, j As Long
Dim strZeile As String
Dim f As Integer
lngZeile = tbl_CSV.Cells(tbl_CSV.Rows.Count, 1).End(xlUp).Row
lngSpalte = tbl_CSV.Cells(1, Columns.Count).End(xlToLeft).Column
f = FreeFile
Open strPath & strDateiname For Append As #f
For i = 2 To lngZeile
For j = 1 To lngSpalte
If j  Empty Then
AppendCSV = True
End If
strZeile = ""
Next i
Close #1
End Function