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("[email protected]").Folders("Inbox").Folders.Add ActiveSheet.Name

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Sub

Ä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
VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung