title image


Smiley Re: Verknüpfung auf Desktop aus VBA erstellen
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

Sub machsmal()

Dim LName$, LPfad$, retVal&

'Name der Verknüpfung

LName = ThisWorkbook.Name

'Pfad zur Verknüpfung

LPfad = ThisWorkbook.FullName

'Verknüpfung erstellen

retVal = fCreateShellLink("..\..\Desktop", LName, LPfad, "")

'wenn erfolgreich erstellt, liefert retVal 1 zurück

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: