Supportnet / Forum / Datenbanken

Hallo zusammen, hab da ein kleines Problem. Möchte aus einer Accessdatenbank (über VBA) von einer Exceldatei eine Verknüpfung erstellen. Das heißt, in dem Ordner C:\Test\ befindet sich die Exceldatei 123.xls, jetzt möchte ich über VBA in dem Ordner Test eine Verknüpfung der Exceldatei 123.xls erstellen. Etwa vom Ablauf wie Datei Löschen: Kill dateiname oder wie beim Kopieren: FileCopy name1, name2 Danke im voraus

Hier eine Prozedur dazu:

Sub Link_erstellen()
Dim Sh, Link

Set Sh = CreateObject("WScript.Shell")
Set Link = Sh.CreateShortcut("C:\Test\123.lnk")
Link.TargetPath = "C:\Test\123.xls"
Link.Save

End Sub

Kann man auch noch "verschönern", z.B. mit

Link.Arguments = "/a /b /c"
Link.WorkingDirectory = "X:\irgendwo"
Link.Description = "Dies ist eine Testverknüpfung"
Link.HotKey = "CTRL+ALT+X"
Link.IconLocation = "%systemroot%\system32\shell32.dll,159"
Link.WindowStyle = 3

Arno

hallo arno,

einfach genjal.

danke
roland

• Read-Only-Verknüpfung von Access zu Access Tabelle
• Excel Abfrage mit Verknüpfung von Daten aus 2 Mappen
• Verknüpfung von Excel (oder Acces Datei) zu Word erstellen.