Private Sub Workbook_Open()
If Dir("C:\Temp", vbDirectory) = "" Then
MkDir ("C:\Temp")
MsgBox "Ordner ''Temp'' wurde angelegt!"
Else
MsgBox "Ordner ''Temp'' ist vorhanden!"
End If
End Sub
Der Benutzer möchte, dass beim Öffnen einer Excel-Datei automatisch ein neuer Ordner im Verzeichnis C:\ angelegt wird. Dieser Ordner soll nach dem aktuellen Datum im Format JJJJMMTT (z.B. 20230910 für den 10. September 2023) benannt werden.
Um beim Öffnen einer Excel-Datei automatisch einen Ordner zu erstellen, kann ein VBA-Makro verwendet werden. Dieses Makro verwendet die MkDir-Funktion von VBA, um einen neuen Ordner zu erstellen, und die Date-Funktion, um das aktuelle Datum zu erhalten. Das Makro wird im Workbook_Open-Ereignis eingefügt, damit es automatisch beim Öffnen der Arbeitsmappe ausgeführt wird.
Alt + F11, um den VBA-Editor zu öffnen.VBAProject (DeinArbeitsblattName) in der Projekt-Explorer-Leiste auf der linken Seite und wähle Einfügen > Modul.Sub CreateFolderOnOpen()
Dim path As String
path = "C:\" & Format(Date, "yyyymmdd")
On Error Resume Next
MkDir path
On Error GoTo 0
End SubDieseArbeitsmappe-Modul im Projekt-Explorer und füge den folgenden Code in das Fenster ein:Private Sub Workbook_Open()
CreateFolderOnOpen
End SubMkDir: Diese VBA-Funktion erstellt ein neues Verzeichnis oder einen Ordner.Mit einem VBA-Makro kannst du beim Öffnen einer Excel-Datei automatisch einen neuen Ordner im Verzeichnis C:\ erstellen. Das Makro verwendet die MkDir-Funktion von VBA und die Date-Funktion, um das aktuelle Datum zu erhalten. Das Makro wird im Workbook_Open-Ereignis eingefügt, damit es automatisch beim Öffnen der Arbeitsmappe ausgeführt wird.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen