Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Verknüpfung auf dem Desktop zur Datei

Verknüpfung auf dem Desktop zur Datei
02.11.2004 23:45:52
Frank
Hallo Leute,
nachdem mir heute schon mal super geholfen wurde, gleich noch eine Bitte.
Wie kann ich mit Makro auf dem Desktop eine Verknüpfung zu meiner Mappe
anlegen und ggf. auch wieder löschen, wobei löschen nicht so wichtig ist.
Leider reichen meine Kenntnisse da nicht aus.
Grüße Frank

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfung auf dem Desktop zur Datei
03.11.2004 00:22:59
Uwe
Hallo Frank,
damit geht das Anlegen eines Links:
Sub LnkAufDesktop()
Dim wbA As Workbook
Dim wSh As Object
Dim oSh As Object
Dim sDesktop As String
Set wbA = ActiveWorkbook
If wbA.Name = wbA.FullName Then
MsgBox wbA.Name & " muss erst gespeichert werden!"
Exit Sub
End If
Set wSh = CreateObject("WScript.Shell")
sDesktop = wSh.SpecialFolders("Desktop")
Set oSh = wSh.CreateShortcut(sDesktop & "\" & wbA.Name & ".lnk")
With oSh
.Targetpath = wbA.FullName
.Save
End With
Set wSh = Nothing
End Sub
Gruß Uwe
Anzeige
AW: Verknüpfung auf dem Desktop zur Datei
Frank
Hallo Uwe,
danke, das klappt. Wenn du jetzt noch eine Lösung zum Löschen hattest...
Grüße Frank
AW: Verknüpfung auf dem Desktop zur Datei
03.11.2004 23:33:49
Uwe
Hallo Frank,
sorry, dass ich mich erst jetzt melde. Habe trotz Aktivierung der Emailbenachrichigung
keine selbige erhalten. Das hat hier schon mal besser funktioniert. :-(
So, hier ein Makro mit reinen Excel-VBA-Mitteln:>pre>

Sub LnkDel()
Dim sDateiLink As String
sDateiLink = Environ("USERPROFILE") & "\DESKTOP\" & ActiveWorkbook.Name & ".lnk"
On Error GoTo Fehler
If Dir(sDateiLink) <> "" Then Kill sDateiLink
Exit Sub
Fehler:
MsgBox Error & ": " & sDateiLink
End Sub
Gruß Uwe
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige