Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Ordnerverlinkung

Betrifft: VBA Ordnerverlinkung von: Becker
Geschrieben am: 02.11.2020 13:44:45

Hallo zusammen,


ich habe folgendes Problem:

Ich möchte mittels VBA eine Projektordnerstruktur erstellen lassen und unter anderem sollen in den Projektordnern Verlinkungen zu den Dokumentationsordnern erstellt werden (beide werdern von Excel neu angelegt).

Funktioniert auch alles soweit so gut, das Problem ist nur, dass die Verknüpfung vom Zieltyp "Datei" erstellt wird statt vom Zieltyp Ordner.

Das Problem wurde wohl schon einmal behandelt, aber mein Code der eigentlich 1 zu 1 Kopiert und an meine Struktur angepasst wurde will einfach nicht funktionieren.

Hier mein Code (Die Variable Ord enthält den zu verlinkenden Pfad):




Dim WshShell As Object

Dim MyShortcut As Object

Set WshShell = CreateObject("WScript.Shell")

Set MyShortcut = WshShell.CreateShortcut(ThisWorkbook.Path & "\Projektordner\Dokumentation.lnk")

With MyShortcut

.Targetpath = Ord & "\"

.iconlocation = "%windir%\explorer.exe, 1"

.Save

End With

Set MyShortcut = Nothing

Set WshShell = Nothing


Danke schon mal im Vorraus

LG Tobias

Betrifft: AW: VBA Ordnerverlinkung
von: volti
Geschrieben am: 02.11.2020 15:36:38

Hallo Tobias,

funktioniert tadellos. Kommt eine Fehlermeldung?

Code:
[Cc]

Sub Ordnerverlinkung() With CreateObject("WScript.Shell").CreateShortcut(ThisWorkbook.Path _ & "\Projektordner\Dokumentation.lnk") .Targetpath = "C:\ControlApp\" .iconlocation = "%windir%\explorer.exe, 1" .Save End With End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz


Betrifft: AW: VBA Ordnerverlinkung
von: Becker
Geschrieben am: 04.11.2020 15:09:42

Hat keiner eine Idee? :/

Betrifft: AW: VBA Ordnerverlinkung
von: peterk
Geschrieben am: 04.11.2020 16:21:22

Hallo

Wenn "Ord" bereits ein "\" am Ende hat, sieht der Link richtig aus, ist aber vom Typ Datei.

P.S. Die Links vorher löschen

Peter