Hallo,
also ich versuche es noch mal Schritt für Schritt.
Das Problem dabei ist, ich kann dir nur erklären, wie das in VBA läuft,
und das musst du dann in deinem Project entsprechend umsetzen.
Vielleicht kann Project ja von Haus aus Office-Anwendungen steuern,
aber die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder
Methode nicht" zeigt, dass die Application von Project mit Workbooks
nichts anfangen kann. Eventuell musst du irgendwo in Project einen
Verweis auf die Objektbibliothek von Excel aktivieren, das Problem ist
wieder, dass ich dir nicht sagen kann, wo. Suche mal ein bisschen in
den Menüs, ob es da etwas wie "Verweise" oder "Bibliotheken" gibt,
dort müsste eine Liste der auf deinem PC registrierten Objektbibliotheken
angezeigt werden, wo du dann die von Excel aktivieren müsstest. Wenn
das möglich ist, dürfte danach die von dir erwähnte Fehlermeldung nicht
mehr kommen. Wenn doch, musst du zusätzlich so vorgehen, wie im
folgenden beschrieben.
Folgendermaßen wird per Code die Verbindung zum Application-Objekt
von Excel hergestellt, um dann darauf zugreifen zu können. Dazu
brauchst du eine Objektvariable, die darauf verweist. Noch mal zur
Erinnerung, alle Codebeispiele sind VBA, wie man in Project Variable
deklariert und mit einem Objekt verbindet, musst du selbst wissen.
Dim xlApp As Object ' formale Deklaration
Set xlApp = CreateObject("Excel.Application")
' Variable mit Excel.Application verbinden
Wenn das Excel-Fenster angezeigt werden soll, musst du die Visible-
Eigenschaft von xlApp auf True setzen:
xlApp.Visible = True
Über xlApp stehen dir alle Eigenschaften und Methoden des Application-
Objektes von Excel zur Verfügung.
xlApp.Workbooks.Open "c:\test.xls"
Wenn du anschließend auf die geöffnete Datei zugreifen willst, musst du
ihren Namen als Index angeben:
xlApp.Workbooks("test.xls").Worksheets("Tabelle1"). _
Range("A1:B2").Clear
Um dir viel Tipperei zu ersparen, kannst du auch weitere Objektvariablen
erstellen, die auf untergeordnete Excel-Objekte verweisen:
Dim xlWbk As Object ' Excel.Workbook
Das Öffnen von test.xls erfolgt dann so:
Set xlWbk = xlApp.Workbooks.Open("c:\test.xls")
Beachte, der Dateiname in dem Fall in Klammern gesetzt!
Dann kannst du mit xlWbk auf das Workbook-Objekt zugreifen:
xlWbk.Worksheets("Tabelle1").Range("A1:B2").Clear
Auch weitere Objektvariablen sind möglich:
Dim xlWks As Object ' Excel.Worksheet
Dim xlRng As Object ' Excel.Range
Set xlWks = xlWbk.Worksheets("Tabelle1")
Set xlRng = xlWks.UsedRange
Prinzip verstanden? Dann viel Erfolg beim Probieren, so oder so.
Gruß
|