Sub 新建工作簿()
Workbooks.Add'新建工作簿
'工作簿另存到其他路徑, \ 后面是工作簿名稱：小強.xlsx
ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba筆記\15.操作工作簿\小強.xlsx"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\Administrator\Desktop\vba筆記\15.操作工作簿\小李.xlsx"
Workbooks("小李.xlsx").Activate '激活小李這個工作簿
'此時兩個工作簿都是打開的
End Sub
通過對象變量來新建工作簿
Sub 新建工作簿1()
Dim wkb1 As Workbook
Dim wkb2 As Workbook
Set wkb1 = Workbooks.Add '新建工作簿
Set wkb2 = Workbooks.Add
wkb1.Activate '激活工作簿
wkb2.SaveAs Filename:="C:\Users\Administrator\Desktop\vba筆記\15.操作工作簿\小雄.xlsx" '工作簿另存為其他路徑上
End Sub
