Link auf Desktop per VBA erstellen
Schritt-für-Schritt-Anleitung
Um einen Link auf dem Desktop per VBA zu erstellen, kannst du den folgenden VBA-Code verwenden. Dieser erstellt eine Verknüpfung (Shortcut) zu deiner Excel-Datei und kann auch ein benutzerdefiniertes Icon (.ico) verwenden.
Sub Erstelle_Verzeichnis_und_Shortcut()
Dim myFSO As Object
Dim myFSOShell As Object
Dim strDesktop As String
Dim myMainFolder As String
Dim mySubFolder As String
Dim myShortCut As Object
Dim myToCopyFile As String, myFileExt As String
' Variablen füllen
myMainFolder = "C:\Ordner1"
mySubFolder = myMainFolder & "\Ordner2"
myToCopyFile = "Mappe1" ' OHNE Extension
myFileExt = ".xls"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myFSOShell = CreateObject("WScript.Shell")
' Verzeichnis und Unterverzeichnis anlegen
ChDrive "C:"
If Not myFSO.folderexists(myMainFolder) Or Not myFSO.folderexists(mySubFolder) Then
On Error Resume Next
MkDir myMainFolder
MkDir mySubFolder
End If
' Verknüpfung auf dem Desktop erzeugen
strDesktop = myFSOShell.SpecialFolders("Desktop")
Set myShortCut = myFSOShell.CreateShortcut(strDesktop + "\" & myToCopyFile & ".lnk")
With myShortCut
.windowstyle = 4 ' Fensterstil
.IconLocation = mySubFolder & "\" & myToCopyFile & ".ico" ' Icon festlegen
.Targetpath = mySubFolder & "\" & myToCopyFile & myFileExt
.Hotkey = "ALT+CTRL+E" ' Tastenkombination
.Save
End With
End Sub
Dieser Code erstellt nicht nur einen Link auf dem Desktop, sondern legt auch ein benutzerdefiniertes Icon fest. Stelle sicher, dass die .ico-Datei im angegebenen Verzeichnis vorhanden ist.
Häufige Fehler und Lösungen
-
Fehler: "Verzeichnis nicht gefunden"
- Lösung: Stelle sicher, dass die Pfade in
myMainFolder und mySubFolder korrekt sind und die Ordner existieren.
-
Fehler: "Icon-Datei nicht gefunden"
- Lösung: Überprüfe, ob die .ico-Datei im angegebenen Verzeichnis vorhanden ist und der Pfad korrekt ist.
-
Fehler: "Zugriff verweigert"
- Lösung: Stelle sicher, dass du die erforderlichen Berechtigungen hast, um im angegebenen Verzeichnis zu schreiben.
Alternative Methoden
Wenn du keinen VBA-Code nutzen möchtest, kannst du auch manuell eine Verknüpfung auf dem Desktop erstellen. Klicke mit der rechten Maustaste auf die Excel-Datei und wähle „Senden an“ > „Desktop (Verknüpfung erstellen)“. Um ein benutzerdefiniertes Icon zu verwenden, musst du die Verknüpfung manuell bearbeiten und das Icon ändern.
Praktische Beispiele
-
Verknüpfung zu einer bestimmten Arbeitsmappe erstellen:
- Ersetze
myToCopyFile durch den Namen deiner Arbeitsmappe, z.B. "Budget2023".
-
Icon anpassen:
- Erstelle ein benutzerdefiniertes .ico-Icon und lege es im gleichen Verzeichnis wie deine Excel-Datei ab.
Tipps für Profis
- Nutze
vba connect, um dynamische Links zu anderen Anwendungen zu erstellen.
- Experimentiere mit verschiedenen Fensterstilen, indem du den
.windowstyle-Wert änderst, um die Benutzererfahrung zu verbessern.
- Überlege, wie du
myFSO nutzen kannst, um Dateien zu verwalten und zu organisieren.
FAQ: Häufige Fragen
1. Wie kann ich den Link auf Desktop speichern?
Verwende den oben genannten VBA-Code, um eine Verknüpfung zu deiner Excel-Datei direkt auf dem Desktop zu erstellen.
2. Kann ich mehrere Links gleichzeitig erstellen?
Ja, du kannst die Subroutine erweitern, um mehrere myShortCut-Objekte für verschiedene Dateien zu erstellen.
3. Wo finde ich die .ico-Datei?
Du kannst Icons online erstellen oder herunterladen, achte darauf, dass sie im .ico-Format vorliegen.
4. Was ist der Unterschied zwischen einem Link und einer Verknüpfung?
Ein Link verweist auf eine URL, während eine Verknüpfung eine direkte Verbindung zu einer Datei oder einem Programm auf deinem Computer herstellt.