Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Verknüpfung auf Desktop anlegen

Betrifft: Verknüpfung auf Desktop anlegen von: Kurt
Geschrieben am: 14.08.2014 10:18:34

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

  

Betrifft: AW: Verknüpfung auf Desktop anlegen von: Kurt
Geschrieben am: 14.08.2014 10:32:34

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


  

Betrifft: AW: Verknüpfung auf Desktop anlegen von: fcs
Geschrieben am: 16.08.2014 12:52:06

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



  

Betrifft: Danke Franz ! --)) von: kurt
Geschrieben am: 16.08.2014 18:57:48




 

Beiträge aus den Excel-Beispielen zum Thema "Verknüpfung auf Desktop anlegen"