---

Hallo,

ich versuche von Inventor aus ein Excelmakro aufzurufen. Excel selbst kann ich öffnen und auch das Worksheet mit dem Makro kann ich laden. Nur das Makro kann ich nicht ausführen.

Kann mir jemand weiterhelfen. Danke.

Gruß Sperry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sperry,
versuch es mal mit folgendem Code.

Gruß Marco

Sub excel()
Dim objExcel As Variant
On Error Resume Next
    Set objExcel = GetObject(, "excel.Application")
    If Err.Number Then
        Err.Clear
        On Error Resume Next
        Set objword = CreateObject("excel.Application")
        If Err.Number Then
            Err.Clear
            MsgBox "Kann Excel nicht öffnen."
        End If
    End If
    objExcel.Application.Run "Mappe1!Makro1"
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für deine Antwort stargazer.

Habe es nach langem Probieren gestern Abend auch hinbekommen. Irgendwie hat es aber auch nur dann funktioniert, wenn die Excel-Mappe keine Vorlagendatei (*.xlt) ist. Es muss / sollte immer eine xls-Datei sein.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP