VBA opret mappe og gem fane som dato.

Prøv om du kan bruge denne kode:

Sub CheckMappe()
X = Month(Now) & "_" & Year(Now)

Dim fso
Dim fol As String
fol = "c:\Excel\" & X ' tilpas til den rigtige sti"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(fol) Then
fso.CreateFolder (fol)
Else
MsgBox fol & " er oprettet!", vbExclamation, "Folder Exists"
End If

ActiveSheet.Name = "Test" & "_" & Month(Now)

MsgBox ActiveSheet.Name
ChDir "c:\Excel\" & X
ActiveSheet.SaveAs Filename:=ActiveSheet.Name & ".xls"

End Sub

Må jeg spørge hvorfor du opretter et spørgsmål herinde, når du ikke engang kan overkomme at svare - det er ikke acceptabelt