Excel VisualBasic Script

Public Sub SaveActiveWorkbook()
  Application.Workbooks.Add
  Call Application.ActiveWorkbook.SaveAs("temp.xls")
End Sub