Abfrage ob Excel gestartet ist

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

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

Bild


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)
...


Bild


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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Abfrage ob Excel gestartet ist"