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

Teile diesen Beitrag

Ähnliche Themen

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung