Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Add Workbooks and save it as a new file
Sub add()
     Workbooks.Add
     ActiveWorkbook.SaveAs Filename:="C:\Data\SalesData1.xlsx"
     Workbooks.Add
     ActiveWorkbook.SaveAs Filename:="C:\Data\SalesData2.xlsx"
     Workbooks("SalesData1.xlsx").Activate
End Sub