在不指定 Excel 文件路径的情况下使用 VBA 从 Excel 打开 PowerPoint 演示文稿

Question

我正在寻找一种让 PowerPoint 中的 VBA 自动识别我计算机上唯一打开的 Excel 文件并使用此 Excel 文件从中读取数据的方法。我想避免在我的代码中手动插入 Excel 文件路径。有可能吗？

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("PATH\FILENAME.xlsm")
    xlBook.Application.Visible = False

谢谢！

Answer 1

请尝试下一个代码：

Sub testOpenWorkbook()
  Dim Ex As Object, wb As Object
   On Error Resume Next
    Set Ex = GetObject(, "Excel.Application")
     If Err.Number <> 0 Then
        Err.Clear: On Error GoTo 0
        MsgBox "There is not any Excel session open...", vbInformation, "Ups...": Exit Sub
     Else
        On Error GoTo 0
        If Ex.Workbooks.count = 1 Then
            Set wb = Ex.Workbooks(1)
        Else
            MsgBox "There are more Excel Workbooks open...", vbInformation, "Ups...": Exit Sub
        End If
     End If
End Sub