Suche dringend Hilfe ( Erstellen von Makros)

Weizenjunkie

Hi Leute,

bin leider noch Anfänger was Visual Basic betrifft.
Seit einer Woche suche ich den Code für ein Auto Open Makro.
Es soll beim ausführen den Ordner Eigene Dateien öffnen.
Folgendes habe ich probiert, klappt aber nicht.

Sub AutoExec()
Shell\OpenFile Location\C="Eigene Dateien"
End Sub

Bis dann

Markus

survivor

Hi,
versuchs mal damit:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Sub Auto Exec()
'Special folders are : AllUsersDesktop, AllUsersStartMenu
'AllUsersPrograms, AllUsersStartup, Desktop, Favorites
'Fonts, MyDocuments, NetHood, PrintHood, Programs, Recent
'SendTo, StartMenu, Startup, Templates
 
    'Get Favorites folder and open it
    Dim WshShell As Object
    Dim SpecialPath As String

    Set WshShell = CreateObject("WScript.Shell")
    SpecialPath = WshShell.SpecialFolders("MyDocuments")
    'Open folder in Explorer
    Shell "explorer.exe " & SpecialPath, vbNormalFocus
End Sub

Das habe ich hier gefunden.

Weizenjunkie

Hallo,

danke für die Antwort.
Es hat direkt auf Anhieb geklappt, ohne viel zu probieren.
Schreibst Du selber Makros, oder hast Du den Code aus dem Internet.

Bis dann

Markus

survivor

Ab und zu muss ich bei der Arbeit mal ein Makro für Excel oder Outlook schreiben. Etwas Ahnung davon habe ich also schon. Da ich privat jedoch nur Linux benutze, habe ich den Code dafür mal kurz mit Google gesucht. Den Link dazu habe ich ja schon gepostet: http://www.rondebruin.nl/folder.htm

Forensoftware: Burning Board 2.3.1, entwickelt von WoltLab GmbH