CSV Import von mehr als 65536 Datensätze
mehr
ich habe irgendwo folgendes Script aufgegriffen, welches eigentlich tadellos funktioniert.
Leider benötige ich für die erste Spalte eine Textformatierung, da hier Artikelnr. mit Nullen voran stehen.
Beispiel 000500. Kann mir jemand helfen, habe mich schon selbst versucht:
Sub CSVImportGroß()
On Error GoTo Ende
Dim Ergebnis As String, Dateiname As String, DateiNum As Integer, Zähler As Double
Dateiname = Application.GetOpenFilename("Textdateien (*.csv), *.csv")
Application.ScreenUpdating = False
If Dateiname = "" Then End
DateiNum = FreeFile()
Open Dateiname For Input As #DateiNum
Workbooks.Add template:=xlWorksheet
Zähler = 1
Do While Seek(DateiNum) MfG Burghard