Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
636to640
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
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Link auf Desktop per VBA erstellen

Link auf Desktop per VBA erstellen
16.07.2005 12:01:35
Ralf
Hallo an Alle,
ich möchte gern einen Link zu meiner Arbeitsmappe mit benutzerdefiniertem Icon auf dem Desktop per VBA ablegen. Kann mir bitte jemand dabei helfen?
Vielen Dank im voraus!
Ralf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Link auf Desktop per VBA erstellen
16.07.2005 12:23:07
Ramses
Hallo
probiers mal
Sub Erstelle_Verzeichnis_und_Shortcut()
Dim myFSO As Object
Dim myFSOShell As Object
Dim strDesktop As String
Dim myMainFolder As String
Dim mySubFolder As String
Dim myShortCut As Object
Dim myToCopyFile As String, myFileExt As String
'Variablen füllen
myMainFolder = "C:\Ordner1"
mySubFolder = myMainFolder & "\Ordner2"
'OHNE Extension
myToCopyFile = "Mappe1"
myFileExt = ".xls"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myFSOShell = CreateObject("WScript.Shell")
'Verzeichnis und Unterverzeichnis anlegen
ChDrive "C:"
If Not myFSO.folderexists(myMainFolder) Or Not myFSO.folderexists(mySubFolder) Then
    On Error Resume Next
    MkDir myMainFolder
    MkDir mySubFolder
End If

'Datei von extrern kopieren
'----
'myFSO.CopyFile "A:\" & myToCopyFile & myFileExt, mySubFolder
'Icon copieren das vorhanden sein muss !!!
'----
'myFSO.CopyFile "A:\" & myToCopyFile & ".ico", mySubFolder

'Verknüpfung auf dem Desktop erzeugen
strDesktop = myFSOShell.SpecialFolders("Desktop")
Debug.Print strDesktop
Set myShortCut = myFSOShell.CreateShortcut(strDesktop + "\" & myToCopyFile & ".lnk")
Debug.Print myShortCut
With myShortCut
    'Fenstertyp beim öffnen
    ' 4=Normal 3=Maximized 7=Minimized
    .windowstyle = 4
    .IconLocation = mySubFolder & "\" & myToCopyFile & ".ico"
    ' oder alternativ ein anderes Icon
    '.IconLocation = "C:\graph9.ico"
    .Targetpath = mySubFolder & "\" & myToCopyFile & myFileExt
    'Keyboard Shortcut zuweisen
    .Hotkey = "ALT+CTRL+E"
    'Speichern
    .Save
End With
End Sub

Gruss Rainer
Anzeige
AW: Link auf Desktop per VBA erstellen
16.07.2005 12:23:45
Peter
Servus,
MfG Peter
AW: Link auf Desktop per VBA erstellen
16.07.2005 12:28:40
Ramses
Hallo Peter
daran habe ich mich gar nicht mehr erinnert :-)
Gruss Rainer
OT: Meine Bestimmung
16.07.2005 16:39:51
Peter
Servus,
na dann hab ich doch eine Aufgabe gefunden. Den älteren Herren des Forums auf Ihre Codes aufmerksam zu machen. :D:D
MfG Peter
AW: Link auf Desktop per VBA erstellen
16.07.2005 16:54:20
Ralf
Hallo Rainer und Peter,
besten Dank Euch beiden! Vorallem an Rainer, hat er doch unbewusst zu beiden Lösungen beigetragen...:-)
Funktionieren beide bestens!
Wünsche Euch noch ein schönes Wochenende!
Ciao, Ralf

49 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige