检查pptx和xlsx文件是否已经打开，然后再打开它

我想这是一个容易的，但因为我在VBA非常新，我无法弄清楚。

我有这个和平的代码，打开一个Power Point演示文稿和一个Excel电子表格。 dir_pptx和dir_xlsx是相应的文件path。

 Set ObjPPT = CreateObject("PowerPoint.Application") Set ObjPresentation = ObjPPT.Presentations.Open("" & dir_pptx & "") Workbooks.Open Filename:=dir_xlsx 

我的问题：如何修改这个代码来检查文件是否已经打开，如果是的话，不要再打开它？

Answer 1

 Sub wbcheck() For Each B In Application.Workbooks If B.name = dir_xlsx Then MsgBox B.name & " already open" 'exit sub or some other handler Else Workbooks.Open Filename:=dir_xlsx End If Next End Sub