如何检查工作簿是否通过vba打开?
要检查工作簿是否使用任何 VBA 代码打开,您需要使用FOR EACH循环,它可以循环遍历当前打开的所有工作簿,并使用您提到的名称检查每个工作簿的名称。您可以使用消息框来获取循环的结果。或者您也可以执行代码将结果输入到单元格中。
检查工作簿是否打开
- 首先,您需要声明在代码中使用的变量来创建循环。
- 使用输入框获取要搜索的工作簿的名称。
- 启动循环以遍历所有打开的工作簿。
- 使用IF 语句编写代码,检查工作簿名称与您在输入框中输入的名称,一旦名称匹配,则激活工作簿,显示一个消息框,表明找到工作簿,然后退出该过程。
- 最后,完成循环并使用消息框,如果没有找到任何内容,则显示消息框。
有用的链接:运行宏–宏记录器– 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