Microsoft Excel

Herbers Excel/VBA-Archiv

Verknüpfung in Ordner speichern | Herbers Excel-Forum


Betrifft: Verknüpfung in Ordner speichern von: Günter
Geschrieben am: 16.01.2010 14:02:49

Hallo Zusammen,

ich habe wieder ein Thema.

Wie kann ich per Makro von der gerade geöffnet Datei eine Verknüpfung in einem bestimmen Verzeichnis erstellen.

Wie kann ich später per Makro diese Verknüpfung wieder löschen.

Danke für EUre Hilfe.

Gruß Günter

  

Betrifft: AW: Verknüpfung in Ordner speichern von: Tino
Geschrieben am: 16.01.2010 14:38:11

Hallo,
so müsste es funktionieren eine Verknüpfung zu erstellen.

Dim oShell As Object, oLink As Object
Dim sLinkName$, sOrdner$, sLinkPfad$


sLinkPfad = ThisWorkbook.FullName 'Link Pfad
sLinkName = ThisWorkbook.Name 'Link Name
sOrdner = "G:\Ordner\" 'Ordner

' Verweis auf den Windows Scripting Host erstellen
Set oShell = CreateObject("WScript.Shell")

' Neuen Link Erstellen
Set oLink = oShell.CreateShortcut(sLinkName & ".lnk")

With oLink
    .TargetPath = sLinkPfad
    .WorkingDirectory = sOrdner
    .Save
End With

Set oLink = Nothing
Set oShell = Nothing
und so kannst Du diese wieder löschen
Dim sLinkPfad$
sLinkPfad = ThisWorkbook.FullName & ".lnk" 'Link Pfad
Kill sLinkPfad 
Gruß Tino


  

Betrifft: Anmerkung, löschen Verknüpfung von: Tino
Geschrieben am: 16.01.2010 14:40:29

Hallo,
beim löschen der Verknüpfung, muss natürlich der Pfad zu dieser angegeben werden.

Gruß Tino


  

Betrifft: AW: Verknüpfung in Ordner speichern von: Günter
Geschrieben am: 16.01.2010 15:24:57

Hallo Tino,

es klappt "fast".

Mein Problem ist, dass die Verknüpfung im Verzeichnis "c:\Usrer\...\Eigene Dokumente" und nicht in 'sOrdner' abgelegt wird.

Kannst Du mir einen Tipp geben?

Gruß Günter


  

Betrifft: AW: Verknüpfung in Ordner speichern von: Tino
Geschrieben am: 16.01.2010 15:34:30

Hallo,
du musst bei sLinkName den Pfad angeben wo der Link erstellt werden soll.

z. Bsp.
sLinkName = "C:\Ordner\" & ThisWorkbook.Name

Gruß Tino


  

Betrifft: Danke--AW: Verknüpfung in Ordner speichern von: Günter
Geschrieben am: 16.01.2010 17:00:14

Hallo Tino,

DANKE, das war es!

Gruß Günter


Beiträge aus den Excel-Beispielen zum Thema "Verknüpfung in Ordner speichern"