Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Link handling

Link handling
21.06.2005 10:38:06
Pascal
Guten Tag alle zusammen,
ich habe folgendes Problem. Ich muss für die Firma ein VBA-Makro schreiben welches multifunktionell verwendbar ist. Nun klappt noch eine Sache nicht. Ich muss für ein File automatisch einen link in einem Directory erstellen. Wie stell ich das nun am besten an?
gibt es eine Variante mit welcher man links erstellen kann?
Was mir durch den kopf gegangen ist, ist die möglichkeit einen dummylink zu erstellen, welcher im rootfolder liegt. Nun kopiere ich den per filecopy an den gewünschten ort. Danach stehe ich wieder an, wenn ich das target des Links ändern will.
Gibt es da eine Möglichkeit?
MfG Pascal

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Link handling
21.06.2005 12:31:25
bst
Hi Pascal,
meinst Du sowas ?
Option Explicit

Sub CreateShortcut()
    Dim wshShell As Object
    Dim strDesktoppath As String
    Dim objShortcutLnk As Object
    Dim objShortcutUrl As Object
    
    Set wshShell = CreateObject("WScript.Shell")
    strDesktoppath = wshShell.SpecialFolders("Desktop")
    
    Set objShortcutLnk = wshShell.CreateShortcut(strDesktoppath & "\notepad.lnk")
    objShortcutLnk.TargetPath = "notepad"
    objShortcutLnk.Save
    
    Set objShortcutUrl = wshShell.CreateShortcut(strDesktoppath & "\devguru.url")
    objShortcutUrl.TargetPath = "http://www.devguru.com"
    objShortcutUrl.Save
    
    Set wshShell = Nothing
End Sub
cu, Bernd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige