Office: (Office 2016) Link per VBA in Excel als Desktopversion starten

Hallo zusammen,
ich hoffe Ihr könnt mir evtl. weiterhelfen?!

Ich habe eine XL Datei in Teams die ich mit anderen Teile. Diese ist per Teams auch so eingestellt, dass die Datei automatisch in XL (Desktopversion) startet. Soweit so gut.

Allerdings möchte ich die Datei auch aus XL über den Link per VBA starten. Was mit der Methode "ThisWorkbook.FollowHyperlink" auch funktioniert. Nur leider startet mir die Datei dann immer per Webversion und nicht in der Desktopversion.

Gibt es da eine Möglichkeit, den Code entsprechend anzupassen? Zb.
Sub Test()
Dim TaskID


TaskID = Shell("C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE", "LINK" vbNormalFocus), vbNormalFocus)
End Sub

Oder sowas in der Richtung? Vielen dank für Eure Hilfe.
Grüße

 

warum nicht einfach
Workbooks.Open "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE"

 

Hi, vielen dank für die schnelle Antwort.
Klar das wäre machbar. Aber wie binde ich den Link der Datei noch mit ein? Die Datei wo ich öffnen möchte liegt ja in Teams bzw auf einem Sharepoint

Grüße

 

schreibe es in Deinem Code, den Du ja im ersten Beitrag erwähnt hast.
Den Ordner habe ich aus Deinem Beitrag übernommen, falls der falsch ist musst Du den richtigen eintragen.

Gruß Hajo

 

Hallo,
soweit schon klar. Somit wird ja XL geöffnet. Aber im Anschluss soll bzw. XL soll mir ja die Datei öffnen.

 

Gut die Datei wirtd dgeöfnet, damit ist das Problem ja gelöst.
Keine Ahnung was
"Aber im Anschluss soll bzw. XL soll mir ja die Datei öffnen." ist.
Ich bin dann raus, dfa Poroblem gelöst.

Gruß Hajo

 

Nochmals danke,
aber ich glaube das wurde nicht richtig verstanden.
Also Excel soll ja letztlich eine Datei auf dem Sharepoint standardmäßig per desktopapp starten.

Sprich per VBA

Starte
"https://worksites.testfirma.com/:x:...ypPvAEGMS9mXGUBqpriHwLbv4UtJYrU5693FA?=yM7eUz"
öffne in DesktopApp und nicht per Webapp

fertig ;-)

Sorry wenn ich mich nicht richtig ausgedrückt habe.