练习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 "工作簿" & OtherWb & "没有被打开！", vbInformation  
  12. End Sub