VBA：工作簿练习

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