Question

我想这很简单，但由于我在VBA中很新，我无法弄清楚。

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

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

在尝试打开pptx和xlsx文件之前，请检查它是否已打开

1 个答案: