如何检查工作簿是否通过vba打开?

要检查工作簿是否使用任何 VBA 代码打开,您需要使用FOR EACH循环,它可以循环遍历当前打开的所有工作簿,并使用您提到的名称检查每个工作簿的名称。您可以使用消息框来获取循环的结果。或者您也可以执行代码将结果输入到单元格中。

检查工作簿是否打开

  1. 首先,您需要声明在代码中使用的变量来创建循环。
    create a loop
  2. 使用输入框获取要搜索的工作簿的名称。
    use an input box
  3. 启动循环以遍历所有打开的工作簿。
    start the loop to loop
  4. 使用IF 语句编写代码,检查工作簿名称与您在输入框中输入的名称,一旦名称匹配,则激活工作簿,显示一个消息框,表明找到工作簿,然后退出该过程。
    code with if statement
  5. 最后,完成循环并使用消息框,如果没有找到任何内容,则显示消息框。
    end the loop and use a message box

有用的链接:运行宏宏记录器Visual Basic 编辑器个人宏手册

这是完整的代码。

 Sub vba_check_workbook() Dim WB As Workbook Dim myWB As String myWB = InputBox(Prompt:="Enter the workbook name.") For Each WB In Workbooks If WB.Name = myWB Then WB.Activate MsgBox "Workbook Found!" Exit Sub End If Next WB MsgBox "Not Found" End Sub

添加评论

您的邮箱地址不会被公开。 必填项已用 * 标注