VBA：工作簿练习

练习1：编程创建一个新的工作簿，把工作簿命名为Mybook，并用变量wb表示新建的工作簿，保存在D盘下test文件夹后退出。

1. Sub 新建工作簿 ()  
2.    Dim wb As Workbook  
3.    Set wb = Workbooks.Add  
4.    With wb  
5.       .SaveAs "d:\test\Mybook"  
6.       .Save  
7.       .Close  
8.    End With  
9. End Sub 

 

练习2：使用For Each In 结构变成石像在打开多个工作簿时，判断某个工作簿是否已经打开。

 

1. Sub 打开工作簿()  
2.     Dim wb As Workbook  
3.     Dim OtherWb As String  
4.     OtherWb = InputBox("输入工作簿名称：", "工作簿 _名称", "mybook.xlsx")  
5.     For Each wb In Workbooks  
6.         If LCase(wb.Name) = LCase(OtherWb) Then  
7.             MsgBox "工作簿" & OtherWb & "已经被打开！", vbInformation  
8.             Exit Sub  
9.         End If  
10.     Next  
11.     MsgBox "工作簿" & 

本文转自 kirin 51CTO博客，原文链接： http://blog.51cto.com/kirin/640426，如需转载请自行联系原作者