ich habe nachfolgendes VBA für die Erzeugung einer csv-Datei je Spalte erstellt:
Das Excel hat je Spalte 35.047 Zeilen.
Der Code bricht immer bei Zeile 16.385 mit Laufzeitfehler "1004" ab.
Was mache ich falsch?
Sub RowToCSV()
Dim j As Single, i As Integer
Dim strColumns As String, strFilePath As String
strFilePath = ThisWorkbook.Path & Application.PathSeparator
For i = 1 To ActiveSheet.UsedRange.Columns.Count
strColumns = Empty
For j = 1 To ActiveSheet.UsedRange.Rows.Count
strColumns = strColumns & Cells(i, j) & ";"
Next j
Open strFilePath & Cells(i, 11) & ".csv" For Output As #1
Print #1, strColumns
Close #1
Next i
End Sub
Besten Dank.
Akki