如何通过PowerPoint VBA引用已打开的Excel文件？

你当前的代码错误原因是：CreateObject("Excel.Application")会新建一个独立的Excel进程，而你要引用的已打开文件属于系统中已存在的另一个Excel进程，新实例里找不到该工作簿，因此报错。

以下是两种可行的解决方案：

方法一：直接绑定到已打开的工作簿 #

通过GetObject直接获取已打开的目标工作簿，无需单独获取Excel应用实例：

Private Sub test()
    Dim xlWorkBook As Object
    
    ' 绑定到已打开的Book1.xlsx工作簿
    Set xlWorkBook = GetObject(, "Excel.Application").Workbooks("Book1.xlsx")
    ' 若Excel隐藏了文件扩展名，也可使用不带后缀的文件名：
    ' Set xlWorkBook = GetObject(, "Excel.Application").Workbooks("Book1")
    
    xlWorkBook.Sheets(1).Range("A8").Value = "Hello"
    
    Set xlWorkBook = Nothing
End Sub

方法二：先获取已运行的Excel实例，再定位工作簿 #

先获取系统中已在运行的Excel应用实例，再尝试定位目标工作簿，同时增加错误处理避免崩溃：

Private Sub test()
    Dim xlApp As Object
    Dim xlWorkBook As Object
    
    ' 尝试获取已运行的Excel实例
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    
    If xlApp Is Nothing Then
        MsgBox "没有正在运行的Excel实例，请先打开目标文件"
        Exit Sub
    End If
    
    ' 尝试定位目标工作簿
    On Error Resume Next
    Set xlWorkBook = xlApp.Workbooks("Book1.xlsx")
    On Error GoTo 0
    
    If xlWorkBook Is Nothing Then
        MsgBox "目标工作簿未打开，请先打开Book1.xlsx"
        Exit Sub
    End If
    
    xlWorkBook.Sheets(1).Range("A8").Value = "Hello"
    
    Set xlWorkBook = Nothing
    Set xlApp = Nothing
End Sub

注意事项 #

• 确保目标工作簿处于打开状态，文件名需完全匹配（包含后缀，除非Excel设置了隐藏文件扩展名）
• 若存在多个独立的Excel进程，GetObject(, "Excel.Application")仅会获取其中一个，若目标工作簿在其他进程中，需额外遍历所有Excel实例（可通过Windows API实现，此处暂不展开）

内容的提问来源于stack exchange，提问作者jqx204s