Create Folder & Save As VBA

[tcorcoran15]

Hi All,

I have the following macro which works fine, however I would like to expand on it if possible.

I would like the macro to create a file with the date if possible, where the file is then saved.

Potential issue is that I may be running the macro multiple times in a day so I imagine it would need to check whether there is already a folder with today's date? I'm no expert haha.

Any help is greatly appreciated.

Application.DisplayAlerts = False    ' suppress overwrite warning message        ActiveWorkbook.SaveAs Filename:="X:\Crown Gas & Power\MATRIX\Matrix - Live\Reports\Credit Control Files\" & RemovePunctuation(Range("D2")), _
                          FileFormat:=51, _
                          CreateBackup:=False
                          
        Application.DisplayAlerts = True
        ActiveWorkbook.Close SaveChanges:=False

 

[mrshl9898]

How's this?

Not sure what removepunctuation is so you'll just need to update "filenamehere"

Sub CheckCreateSave()


Dim myfolder As Object
Dim myfoldername As String


Application.DisplayAlerts = False    ' suppress overwrite warning message
myfoldername = Date


    Set myfolder = CreateObject("Scripting.FileSystemObject")
    If myfolder.folderexists("X:\Crown Gas & Power\MATRIX\Matrix - Live\Reports\Credit Control Files\" & myfoldername) Then
    GoTo folderexists
    Else
        myfolder.CreateFolder ("X:\Crown Gas & Power\MATRIX\Matrix - Live\Reports\Credit Control Files\" & myfoldername)
    End If


folderexists:
ActiveWorkbook.SaveAs Filename:="X:\Crown Gas & Power\MATRIX\Matrix - Live\Reports\Credit Control Files\" & myfoldername & "\" & filenamehere
Application.DisplayAlerts = True
ActiveWorkbook.Close SaveChanges:=False


End Sub