Verknüpfungen im Windows-Explorer mit Excel (VBA) erstellen?

Question

Hallo zusammen,

ich habe hier in Excel 2010 eine Liste von einigen Dateinamen (inkl. Endung *.xyz). Die zugehörigen Dateien befinden sich (zusammen mit vielen anderen) in C:\Dateien.

Ich möchte nun in einem anderen Ordner Verknüpfungen zu den Dateien erstellen, die in der Excel-Datei aufgelistet sind. Das heißt natürlich für jede Datei eine eigene Verknüpfung, genauso wie man sie im Windows-Explorer mit Rechtsklick -> neu -> Verknüpfung erhält.

Geht das? Am liebsten mit Excel-Makro (VBA) …


Hintergrund: Von meinem CAD-Programm (Autodesk Inventor) aus möchte ich mehrere Dateien auf einmal öffnen. Das geht über den üblichen Öffnen-Dialog, und zwar auch dann, wenn hier nur die Verknüpfungen auswählt werden.
Da im Originalordner C:\Dateien wie gesagt auch viele andere Dateien liegen, ist die direkte Auswahl der gewünschten Dateien nicht praktikabel.


Danke schon mal für eure Hilfe!
Gruß, Heiko1985


P.S.: Hyperlinks aus Excel gehen zwar. Aber dann müsste ich jeden Link einzeln anklicken.

Answer 1

Ich habe inzwischen eine Lösung gefunden:

Dim objWsh As Object
Set objWsh = CreateObject("WScript.Shell")
With objWsh.CreateShortCut( "C:\Verknuepfungen\" & Replace(Range("A1"), ".xyz", ".lnk"))
.TargetPath = "C:\Dateien\" & Range("A1")
.WorkingDirectory = "C:\Dateien\"
.WindowStyle = 0 ' Maximiert
.Save
End With
Set objWsh = Nothing