Featured

Ordnerstruktur anlegen

May 25, 2021

Inhalt

Ordner anlegen
Unterordner anlegen
Hyperlinks einfügen
Outlook Ordner anlegen
Verweise zu “Microsoft Scripting Runtime” und “Microsoft Outlook Object Library” setzen
Dateipfad auslesen
Strings verketten
Die Offset-Eigenschaft
For-Next Schleife
Makro zur Schnellzugriffleiste hinzufügen

Code (UserForm)

Sub OrdnerstrukturAnlegen()

'Verweis zu "Microsoft Scripting Runtime" setzen
'Verweis zu "Microsoft Outlook Object Library" setzen
Dim FSO As New FileSystemObject
Dim Pfad As String
Dim i As Long
Dim myolApp As New Outlook.Application

Pfad = "C:UserskaiweDesktop"

'Ordner anlegen
FSO.CreateFolder Pfad & "" & ActiveSheet.Name

For i = 1 To 4

    'Unterordner anlegen
    FSO.CreateFolder Pfad & "" & ActiveSheet.Name & "Ordner " & i
    
    'Hyperlinks einfügen
    ActiveSheet.Hyperlinks.Add anchor:=ActiveCell.Offset(1, i - 1), _
    Address:=Pfad & "" & ActiveSheet.Name & "Ordner " & i, TextToDisplay:="Ordner " & i

Next i

'Ordner in Outlook anlegen
myolApp.GetNamespace("MAPI").Folders("[email protected]").Folders("Inbox").Folders.Add ActiveSheet.Name

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub