Hallo,
ich möchte per vba eine Verknüpfung öffnen.
Hintergrund:
Ich arbeite mit Adams Chassis und habe 2 Möglichkeiten das Programm zu starten.
1. Klick auf die *.exe --> Dann wird nur das Programm geladen ohne diverse Einstellungen
2. Möglichkeit: Ich öffne eine Verlinkung. --> Diese Verlinkung öffnet zusätzlich zum Programm meine Einstellungen, D.h. beliebig viele Manöver, Fahrzeuge und Einstellungen werden mitgeladen.
Nun möchte ich Prozesse beschleunigen und per VBA auf die Verlinkung zugreifen, damit die Manöver, Fahrzeuge und Einstellungen automatisch mitgeladen werden.
Bisher habe ich 3 Skripte gefunden. Alle können die *.exe ausführen aber nicht die *.lnk
Hier ein Beispiel mit DVDMaker
Sub aaa()
1.
appID = Shell("C:\Program Files\DVD Maker\DVDMaker.exe") -->läuft
appID = Shell("C:\Users\...\DVDMaker.lnk") -->läuft nicht
2.
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
tgtfile = "C:\Program Files\DVD Maker\DVDMaker.exe" --> läuft
tgtfile = "C:\Users\...\DVDMaker.lnk" -->läuft nicht
Shex.Open (tgtfile)
3.
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run """C:\Program Files\DVD Maker\DVDMaker.exe""" -->läuft
WshShell.Run """C:\Users\...\DVDMaker.lnk""" -->läuft nicht
End Sub
|