Ordnerstruktur anlegen

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("kaiweissmann@outlook.de").Folders("Inbox").Folders.Add ActiveSheet.Name

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
Mein Kurs

Jetzt registrieren

Close Bitnami banner
Bitnami