Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
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

38 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige