Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Use Application object to save a workbook as a new file
Public Sub SaveSpecificWorkbook1()
  Application.Workbooks.Add
  Call Application.ActiveWorkbook.SaveAs("temp1.xls")
  Application.Workbooks("temp1.xls").SaveAs ("copy of temp1.xls")
End Sub