Is it possible to save .XLA sheet as new .XLS file

  • Thread starter Thread starter Vinod
  • Start date Start date
V

Vinod

Hi All,

I've designed a Add-in which copies current workbook sheet1 & sheet2 data
into Input sheet of Add-In.

My requirement is Input sheet has to be saved as new file with .xls extension.

Is it possible to do like my requirement if not what is the best method to
reachout my requirement?

Advanced Thanks
Vins
 
In your XLA file, use code like

Sub SaveInput()
ThisWorkbook.Worksheets("Input").Copy
Activeworkbook.SaveAs Format(Date,"yyyymmdd") & " Input file.xls"
End Sub

HTH,
Bernie
MS Excel MVP
 
In your XLA file, use code like

Sub SaveInput()
ThisWorkbook.Worksheets("Input").Copy
Activeworkbook.SaveAs Format(Date,"yyyymmdd") & " Input file.xls"
End Sub

HTH,
Bernie
MS Excel MVP
 
Back
Top