工作簿

Sub 工作簿新建()
Dim wkb As Workbook
Set wkb = Workbooks.Add
wkb.SaveAs ("c:\users\dalu\desktop\1.xls")
End Sub

Sub 打开工作簿()
Dim wkb As Workbook
Set wkb = Workbooks.Open("c:\users\dalu\desktop\1.xls")
End Sub

Sub 关闭()
Workbooks("lala.xls").Close
End Sub