GetObject und Laufzeitfehler 40036
13.05.2014 14:13:42
MarcR
ich will mit folgendem Code auf ein Excel-Workbook mit GetObject zugreifen, ermitteln wie viele Tabellenblätter enthalten sind und für alle Tabellenblätter die letzte verwendete Spalte und Zeile ermitteln:
Set quelle = GetObject(sPath)
anzahlWks = quelle.Worksheets.Count
For i = 1 To anzahlWks
last_row = quelle.Worksheets(i).UsedRange.Rows.Count
last_column = quelle.Worksheets(i).UsedRange.Columns.Count
Leider wird dabei in der Zeile "last_row = quelle.Worksheets(i).UsedRange.Rows.Count"
der Laufzeitfehler 40036: "Anwendungs-oder objektorientierter Fehler" angezeigt. Ich erkenne den Fehler im Code allerdings nicht. Daher bitte ich euch um eure Hilfe. Danke schon einmal im Voraus!
MfG Marc