Herbers Excel-Forum - das Archiv
Abfrage ob Excel gestartet ist
Betrifft: Abfrage ob Excel gestartet ist
von: Werner
Geschrieben am: 07.03.2005 10:28:01
Hi!
Ich öffne Excel aus Word heraus um daten aus einer Tabelle zu lesen:
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open (ThisDocument.Path & "\" & Passungstabelle)
Funktioniert wunderbar.
Ab und zu kann es jedoch passieren das Excel nicht korrekt geschlossen wird.
Kann ich irgendwie Abfragen ob Excel noch aktiv ist?
Ansonsten bekomme ich bei einem Zugriff
z.B.: appExcel.Workbooks(Passungstabelle).Worksheets(...
eine Fehlermeldung.
mfg
Betrifft: AW: Abfrage ob Excel gestartet ist
von: Alexander Weinhard
Geschrieben am: 07.03.2005 12:27:07
Du kannst das hier tun, so vermeidest du die Fehlermeldungen, weil du nur ein neues Excel öffnest, wenn keins aktiv ist:
Set appExcel = GetObject(, "Excel.Application")
Fehler = Err.Number
On Error GoTo 0
If Fehler = 429 Then 'Es gibt soweit keine Excel Instanz
Set appExcel = CreateObject("Excel.Application") 'Excel Instanz generieren
ElseIf Fehler > 0 Then 'Unerwarteter Fehler
MsgBox Err.Description
Exit Sub
End If
appExcel.Workbooks.Open (ThisDocument.Path & "\" & Passungstabelle)
...
Betrifft: AW: Abfrage ob Excel gestartet ist
von: Bert
Geschrieben am: 07.03.2005 12:30:03
Versuche mit GetObject auf die Excelinstanz zuzugreifen. Tritt kein Fehler auf,
also err = 0, ist Excel geöffnet.
Bert