Christian Hahn schrieb:
Mein Code bis hierhin:
Dim excel As New ExcelApplication
Dim book As ExcelWorkbook
book =
excel.Workbooks.Open("I:\a_KOFFER\Schule_Nb\08_09\ListenFürLehrer
08_09\ListenFuerLehrer08_09_1")
excel.Visible = true
Das klappt.
Das bezweifle ich. :-)
Jetzt müsste kommen etwa:
book.sheets(1).select
was aber so nicht funktioniert.
Kann es auch nicht :-)
So geht´s:
Dim XL As New Excel.Application
Dim book As Excel.Workbook
Sub Test()
Set book = XL.Workbooks.Open("C:\Dokumente und
Einstellungen\stefan\Desktop\test.xls")
XL.Visible = True
book.Sheets(2).Activate
End Sub
Beachte die Unterschiede zu Deinem Code:
(1) Du verwendest das reservierte Schlüsselwort Excel als Name für
eine Objektvariable.
(2) Du vergisst zwischen dem Identifier der Objektbibliothek und der
Klasse einen Punkt. Falsch: ExcelApplication. Richtig
Excel.Application. Falsch: ExcelWorkbook. Richtig: Excel.Workbook.
(3) Für das Zuweisen eines Objekts zu einer Objektvariablen braucht
es das Schlüsselwort Set.
(4) Die Methode für das Auswählen eines Tabellenblattes heißt nicht
Select sondern Activate.
Gruß
Stefan
--
www.datenpilot.org
