Problem mit VBA Verknüpfung erstellen
10.07.2014 11:04:55
Franc
ich habe eine Problem mit dem automatischen erstellen von Verknüpfungen.
Pfad + Name der Verknüpfungen werden später varrieren. (Name der Verknüpfung soll dann aber gleich mit dem Namen der Datei sein)
Ich habe folgende im Internet gefunden was warum auch immer nicht funktioniert.
Bei der Zeile Set MyShortcut = WSHShell.CreateShortcut(strName) bekomme ich folgenden Fehler.
Laufzeitfehler '-2147352567 (80020009)'
Kann das Excel 2003 nicht oder mach ich was anderes falsch?
Sub shortcut()
Dim WSHShell As Object, MyShortcut
Dim strDatei As String, strName As String
'Datei auf die ich verweisen möchte
strDatei = "C:\1.xls"
'Ort wo die Verknüpfung hin soll und Name
strName = "C:\test.xls"
Set WSHShell = CreateObject("WScript.Shell")
Set MyShortcut = WSHShell.CreateShortcut(strName)
MyShortcut.TargetPath = strDatei
MyShortcut.Save
Set MyShortcut = Nothing
Set WSHShell = Nothing
End Sub