工做簿

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