ich möchte beim öffnen einer Datei, das Excel ein neue Ordner in Verz. C\: anlegt.
Wie geht das?
Danke für die Hilfe
Giuseppe
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 Sub
DieseArbeitsmappe
-Modul im Projekt-Explorer und füge den folgenden Code in das Fenster ein:Private Sub Workbook_Open()
CreateFolderOnOpen
End Sub
MkDir
: 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.