Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1376to1380
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
Inhaltsverzeichnis

Verknüpfung auf Desktop anlegen

Verknüpfung auf Desktop anlegen
14.08.2014 10:18:34
Kurt
Guten Morgen,
ich möchte gern in der Workbook_Open() ein Makro
befindet, das eine Verknüpfung auf dem Desktop angelegt wird.
Sehr gut würde das die alte Verküpfung gelöscht wird, ist
wohl schwierig, weil am Ende die Versions Nr. steht.
- Rg.Vorlage Musterhalle Vers. 1.20.xls
wenn dies nicht geht ist nicht schlimm.
gruß
kurt

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

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfung auf Desktop anlegen
14.08.2014 10:32:34
Kurt
Hallo zusammen,
habe gerade dieses Makro gefunden, welches auch funktioniert.

Sub ArbeitsmappeAufDesktopLegen()
Dim wsh As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wsh = CreateObject("WScript.Shell")
s_DeskTop = wsh.SpecialFolders("Desktop")
Set o_Sh = wsh.CreateShortcut(s_DeskTop & _
"\" & ThisWorkbook.Name & ".lnk")
With o_Sh
.Targetpath = ThisWorkbook.FullName
.Save
End With
Set wsh = Nothing
End Sub
Das mit dem löschen klappt aber nicht, vielleicht hat jemand eine Idee !
Sub ArbeitsmappeAufDesktopKillen()
Dim wshk As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wshk = CreateObject("WScript.Shell")
s_DeskTop = wshk.SpecialFolders("Desktop")
Kill s_DeskTop + "\t*.xls.lnk"
Set wshk = Nothing
End Sub
gruß kurt

Anzeige
AW: Verknüpfung auf Desktop anlegen
16.08.2014 12:52:06
fcs
Hallo Kurt,
mit "t*.xls.lnk" kannst du natürlich keine Datei löschen, deren Dateiname mit "R" beginnt.
Mit der folgenden Anpassung sollte das Löschmakro funktioieren.
Gruß
Franz
Sub ArbeitsmappeAufDesktopKillen()
Dim wshk As Object
Dim o_Sh As Object
Dim s_DeskTop As String
Set wshk = CreateObject("WScript.Shell")
s_DeskTop = wshk.SpecialFolders("Desktop")
With ThisWorkbook
If Dir(s_DeskTop & "\" & Left(.Name, InStr(1, .Name, "Vers.")) & "ers.*.xls.lnk")  ""  _
Then
Kill s_DeskTop & "\" & Left(.Name, InStr(1, .Name, "Vers.")) & "ers.*.xls.lnk"
Else
MsgBox "Kein Link von Vorversion auf Desktop vorhanden"
End If
End With
Set wshk = Nothing
End Sub

Anzeige
Danke Franz ! --))
16.08.2014 18:57:48
kurt
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige