VBA - Code
26.02.2013 14:30:51
BuStue
ich bin am verzweifeln. Folgender VBA Code (Import von mehr als 65536 Datensätzen) läuft unter Excel 2007 einwandfrei
unter 2003 läuft ein Fehler auf:
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) -----
Bei If left(Ergebnis, 1) kommt der Komplierungsfehler Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft.
Was kann man hier machen, damit das Script auch unter Excel 2003 läuft.
MfG Burghard
Anzeige