Changing file format on a template

[Praedico]

Windows system - Excel 2003

Is there a way to change the default 'save-as' filetype in an 'opened' template from XLT to XLS?

I'm thinking perhaps VBA code in the ThisWorkbook object when the template is opened.

I don't want the user to have to select it ... because they won't. They'll just blindly save it as an XLT and it will create a mess.


Thanks

 

[Desu Nota from Columbus]

The following macro (placed in personal.xls) will automatically save the file using the existing file name as an xml extension.

is this what you wanted?

If InStrRev(ActiveWorkbook.Name, ".") > 0 Then     
   ActiveWorkbook.SaveAs Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & ".xml", FileFormat:=46 
Else     
   MsgBox "Save with a valid filename before saving as .xml" 
End If

Maybe create a Macro Button and label it as "Save" for everyone to use.

 

[Praedico]

The following macro (placed in personal.xls) will automatically save the file with the existing file name as an xml extension.

is this what you wanted?

If InStrRev(ActiveWorkbook.Name, ".") > 0 Then     
ActiveWorkbook.SaveAs Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) & ".xml", FileFormat:=46 Else     
MsgBox "Save with a valid filename before saving as .xml" 
End If

Thanks for the quick response - actually I don't want them to be asked to save the file. I just want to change the default filetype so that when they are ready to save it defaults to the xls instead of xlt.

 

[Desu Nota from Columbus]

This code can go in the ThisWorkbook instead of personal.xls

If InStrRev(ThisWorkbook.Name, ".") > 0 Then     
  ActiveWorkbook.SaveAs Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & ".xml", FileFormat:=46 
Else     
  MsgBox "Save with a valid filename before saving as .xml" 
End If

 

[Desu Nota from Columbus]

Thanks for the quick response - actually I don't want them to be asked to save the file. I just want to change the default filetype so that when they are ready to save it defaults to the xls instead of xlt.

Sorry I am unable to help you then