Ich importiere Tabellen aus einer Access-Datenbank. Hier ein Fragment vom Code:
Set Datenbank = OpenDatabase(DBDateiName)
For i = 0 To Datenbank.TableDefs.Count - 1
MyTableName = Datenbank.TableDefs(i).Name
MyTableName = Format(i, """DAT""000")
Workbooks.OpenDatabase Filename:=DBDateiName, CommandText:=Array(MyTableName), CommandType:=xlCmdTable
ActiveSheet.Move Before:=Workbooks("MAKRO.xls").Sheets(1)
Next i
Wenn ich mehr als 64 Dateien habe kommt Laufzeit-Fehler 1004 (Methode fehlgeschlagen).
Gibt es eine Grenze? Kann leider keine Geschäftsdaten hochbeamen. Ein link über Importbeispiele wäre auch denkbar.
Franz D.