copy sheet and export to create new folder

[rjmdc]

how do i export and create new folder based on file name into base folder
i know how to export
what do i add to make new folder?

 

[HongRu]

try

Sub sbFolder()
    myFolder = "D:\Test"
    
    If Dir(myFolder, vbDirectory) = "" Then
        MkDir myFolder
    End If
End Sub

 

[rjmdc]

hi
i am doing something wrong
my base folder is M:\all\Reports\2023

then i want to process my book and save based on value of cell D2 something like 1.2.2023 or 1.22.2023
how would i use make my folder properly
this code fails

 

[rjmdc]

hi
this is my code
it is copying outside of the nee new folder
it creates the folder but the worksheet isnt inside

Sub ExportToFolder()
    Dim ReportDate              As String:              ReportDate = Worksheets("Data Stub").Range("ReportDate")
    Dim PeriodRunFolder         As String:              PeriodRunFolder = Replace(ReportDate, "/", ".")
    Dim NewWB                   As Workbook
    Dim FullFilePath            As String
    
    Call MakeMyFolder(ExportFolder & PeriodRunFolder)
    'Array of Worksheets to Export
    Worksheets("Pay Stubs").Copy
    Set NewWB = ActiveWorkbook
    FullFilePath = ExportFolder & PeriodRunFolder & ".xlsx"
    NewWB.SaveAs FullFilePath
    NewWB.Close SaveChanges:=False
    
    End Sub

 

[rjmdc]

thanks you i used a bit and added to what i had already
it works