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

[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

 

[Bernie Deitrick]

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

 

[Bernie Deitrick]

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