| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Workbooks.SaveAs - How to have it saved with .xls extension?
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? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Workbooks.SaveAs - How to have it saved with .xls extension?
On Jul 3, 10:22 am, J@Y wrote:
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? If ucase(right(fname,4)) < ".XLS" then fname=fname+".xls" Peter |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Workbooks.SaveAs - How to have it saved with .xls extension?
I guess its a manual process. Thanks!
" wrote: On Jul 3, 10:22 am, J@Y wrote: 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? If ucase(right(fname,4)) < ".XLS" then fname=fname+".xls" Peter |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| SaveAs command doesn't save extension | Excel Programming | |||
| Saved excel doc with extension .xsl.error | Excel Discussion (Misc queries) | |||
| two workbooks with extension .xls1 and .xls2 | Excel Worksheet Functions | |||
| SaveAs and Hidden Workbooks | Excel Programming | |||
| Weird Problem: Excel SaveAs-- document not saved | Excel Programming | |||
Linear Mode
