Workbooks.SaveAs - How to have it saved with .xls extension?

J

J@Y

I have:

Set ReportBook = Workbooks.Add()

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ReportBook.SaveAs Filename:=fName

The filename is not automatically .xls extension. How would I have it so
that when the user types Report in the FileName, the workbook gets saved as
..xls?
 
P

par_60056

I have:

Set ReportBook = Workbooks.Add()

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ReportBook.SaveAs Filename:=fName

The filename is not automatically .xls extension. How would I have it so
that when the user types Report in the FileName, the workbook gets saved as
.xls?
Click to expand...


If ucase(right(fname,4)) <> ".XLS" then fname=fname+".xls"

Peter
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Error Handle: File is already open. 3
xltm saveas xlsm 6
getsaveasfilename loop... <> false and not already exists 2
Combine workstheets of multipel workbooks into one workbook using a macro 5
Save file to Specific Directory - then EMAIL 2
Troubleshooting macro to save in Compatability Mode 2
Export/Import in CSV 2
Open files from folder by matching name 3

Top