如何将Excel中选择打开工作簿的VBA代码适配为PowerPoint宏？

你原来的代码是在Excel VBA环境下编写的，默认可以直接访问Excel自身的Workbooks集合，但是迁移到PowerPoint VBA后存在两个核心问题：

1. PowerPoint VBA默认不识别Excel的对象模型，直接调用Workbooks、Workbook类会报错，无法获取到Excel的已打开工作簿列表。
2. 未处理InputBox的异常输入场景：比如用户点击取消、输入非数字内容时，CInt(myString)会直接触发类型转换错误。

推荐使用晚绑定方式，不需要额外配置引用，兼容不同Office版本，适配后的完整代码如下：

Function PromptForWorkbook() As String
    Dim ExcelApp As Object
    Dim N As Long
    Dim s As String
    Dim myString As String
    Dim WB As Object
    Dim wbCount As Long
    
    ' 获取正在运行的Excel实例
    On Error Resume Next
    Set ExcelApp = GetObject(, "Excel.Application")
    On Error GoTo 0
    
    ' 未检测到运行的Excel直接返回空
    If ExcelApp Is Nothing Then
        MsgBox "未检测到已打开的Excel文件，请先打开需要选择的工作簿"
        PromptForWorkbook = vbNullString
        Exit Function
    End If
    
    wbCount = ExcelApp.Workbooks.Count
    If wbCount = 0 Then
        MsgBox "未检测到已打开的Excel工作簿"
        PromptForWorkbook = vbNullString
        Set ExcelApp = Nothing
        Exit Function
    End If
    
    ' 拼接工作簿选择列表
    For Each WB In ExcelApp.Workbooks
        N = N + 1
        s = s & CStr(N) & " - " & WB.Name & vbNewLine
    Next WB
    
    ' 处理用户输入
    myString = InputBox( _
    prompt:="Select the source data excel file, by the ID number:" & _
    vbNewLine & s)
    ' 用户点击取消直接返回空
    If myString = "" Then
        PromptForWorkbook = vbNullString
        Set ExcelApp = Nothing
        Exit Function
    End If
    
    ' 校验输入是否为合法数字
    If Not IsNumeric(myString) Then
        MsgBox "请输入有效的数字ID"
        PromptForWorkbook = vbNullString
        Set ExcelApp = Nothing
        Exit Function
    End If
    
    N = CInt(myString)
    If N <= 0 Or N > wbCount Then
        MsgBox "输入的ID超出可选范围"
        PromptForWorkbook = vbNullString
    Else
        PromptForWorkbook = ExcelApp.Workbooks(N).Name
    End If
    
    ' 释放对象避免内存残留
    Set WB = Nothing
    Set ExcelApp = Nothing
End Function

可选配置（提前绑定获取代码智能提示） #

如果需要使用Excel对象的智能补全提示，可以手动配置引用：

• 按Alt+F11打开PowerPoint VBA编辑器
• 点击顶部菜单「工具」→「引用」
• 找到并勾选对应版本的「Microsoft Excel XX.X Object Library」
• 配置完成后可以把代码中的Object替换为Excel.Application、Excel.Workbook类型，使用体验和Excel原生VBA一致。

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