Kurze VBA-Codes für Externe Apps?

[Contbau20000]

Hallo,

in Excel VBA kann man mit diesen kurzen Codes diverse MS-Programme/Apps öffnen

Sub AppCalcOeffnen()
    Application.ActivateMicrosoftApp Index:=0
End Sub
Sub AppWordOeffnen()
    Application.ActivateMicrosoftApp Index:=1
End Sub
Sub AppPowerPointOeffnen()
    Application.ActivateMicrosoftApp Index:=2
End Sub
Sub AppOutlookOeffnen()
    Application.ActivateMicrosoftApp Index:=3
End Sub
Sub AppAccessOeffnen()
    Application.ActivateMicrosoftApp Index:=4
End Sub


Bei MS-Access funktioniert der Code nicht.
Gibt es da keine so kurzen Codes?

[mumpel]

Hallo!

Nein, gibt es in Access nicht. Da musst Du mit "CreateObject" eine Programm-Instanz erstellen.

Gruß, René

[Contbau20000]

Danke.

Ich habe es herausgefunden.

Mehr braucht es nicht

Call Shell("""Calc.exe""", 1)

[schauan]

... oder, wie gefragt für Access

Call Shell("""MsAccess.exe""", 1)