Desktop-Verknüpfung (Code von Ramses)
07.08.2008 09:46:04
Ramses)
der nachstehende Code funktioniert bestens um von der aktuellen Mappe eine Verknüpfung auf den Desktop zu erstellen. Jedoch brauche ich folgendes:
Aus der geöffneten Mappe heraus soll der Code eine Verknüpfung folgender Mappe erstellen
C:\Obedience\HSVInnSalzach\easy-obedience.xls
Sub Create_Link_On_Desktop()
'von Rainer (Ramses) auf www.Herber.de gepostet
Dim wsh As Object
Dim tarLink As Object
Dim tarDeskTop As String
Set wsh = CreateObject("WScript.Shell")
tarDeskTop = wsh.SpecialFolders("Desktop")
Set tarLink = wsh.CreateShortcut(tarDeskTop & _
"\" & ThisWorkbook.name & ".lnk")
With tarLink
.Targetpath = ThisWorkbook.FullName
.Save
End With
Set wsh = Nothing
End Sub
Wäre toll wenn Ihr nochma eingreifen könntet.
Peter S