Microsoft Excel

Herbers Excel/VBA-Archiv

Problem mit VBA Verknüpfung erstellen

Betrifft: Problem mit VBA Verknüpfung erstellen von: Franc
Geschrieben am: 10.07.2014 11:04:55

Hallo,

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

  

Betrifft: AW: Problem mit VBA Verknüpfung erstellen von: Nepumuk
Geschrieben am: 10.07.2014 11:14:30

Hallo,

strName = "C:\test.lnk"

Gruß
Nepumuk


  

Betrifft: AW: Problem mit VBA Verknüpfung erstellen von: Franc
Geschrieben am: 10.07.2014 12:35:03

Danke

Ich weiß jetzt auch woher mein Denkfehler kam.
Wenn man manuell eine Verknüpfung erstellt steht dann ja da "Verknüpfung mit xyz.xls"
Ich hab dann das mit Verknüpfung entfernt und es stand nur noch "xyz.xls" da und ja ... ^^
Dachte dann hmm ... kann man das denn genauso nennen wie das Original?
Natürlich nicht ...

Es funktioniert jetzt. ;-)


 

Beiträge aus den Excel-Beispielen zum Thema "Problem mit VBA Verknüpfung erstellen"