练习1：编程创建一个新的工作簿，把工作簿命名为Mybook，并用变量wb表示新建的工作簿，保存在D盘下test文件夹后退出。
- Sub 新建工作簿 ()
- Dim wb As Workbook
- Set wb = Workbooks.Add
- With wb
- .SaveAs "d:\test\Mybook"
- .Save
- .Close
- End With
- End Sub
练习2：使用For Each In 结构变成石像在打开多个工作簿时，判断某个工作簿是否已经打开。
- Sub 打开工作簿()
- Dim wb As Workbook
- Dim OtherWb As String
- OtherWb = InputBox("输入工作簿名称：", "工作簿 _名称", "mybook.xlsx")
- For Each wb In Workbooks
- If LCase(wb.Name) = LCase(OtherWb) Then
- MsgBox "工作簿" & OtherWb & "已经被打开！", vbInformation
- Exit Sub
- End If
- Next
- MsgBox "工作簿" &
本文转自 kirin 51CTO博客，原文链接： http://blog.51cto.com/kirin/640426，如需转载请自行联系原作者
