Save File To Folder

[Jaye7]

Help would be appreciated.

I would like a script which would save my file named Xtemplate to a folder named C:\Temp\ExcelTemplates\

The only thing is I would like it if the script could add a new number to the file name if the file already exists in the destination folder.

I.e. Xtemplate already exists so save file as
Xtemplate1 (if Xtemplate1 exists, save as)
Xtemplate2 (if etc... etc....)

 

[Jaye7]

Thanks for your help Xenou and John.

I have used John's example and it works perfectly, greatly appreciated.

 

[ansariemacaurog]

Hi,

I am saving a new file to a new folder.

I'd like to have the folder be named as one of the cell, say A2.

Grateful for your help.

 

[John_w]

ansariemacaurog, I need more details, like what is the file being saved, do you want to save the file in the new folder, is the folder name in A2 the full folder path including the new folder name or just the new folder name?

But at its simplest, suppose A2 on Sheet1 contains C:\temp\Excel\newFolder, the following code will create newFolder, but only if all preceding folders exist (C:\temp and C:\temp\Excel):

Sub CNF()
    If Dir(Sheets("Sheet1").Range("A2").Value, vbDirectory) = "" Then
        MkDir Sheets("Sheet1").Range("A2").Value
    End If
End Sub