寻求Office2003以来全版本Excel GUID列表及跨版本引用解决方案

嘿，这个跨版本Excel引用的问题我之前帮不少人解决过——其实不用死记每个版本的GUID，不过先给你要的列表，再给个更省心的方案：

其实你可能没注意到：从Office 2003到现在的365，Excel对象库的主GUID是固定的，不同版本只是Major版本号不一样。以下是对应版本的参数：

• Excel 2003（版本11.0）：GUID={00020813-0000-0000-C000-000000000046}，Major:=11, Minor:=0
• Excel 2007（版本12.0）：GUID={00020813-0000-0000-C000-000000000046}，Major:=12, Minor:=0
• Excel 2010（版本14.0）：GUID={00020813-0000-0000-C000-000000000046}，Major:=14, Minor:=0
• Excel 2013（版本15.0）：GUID={00020813-0000-0000-C000-000000000046}，Major:=15, Minor:=0
• Excel 2016/2019/365（版本16.0）：GUID={00020813-0000-0000-C000-000000000046}，Major:=16, Minor:=0

不过硬编码版本号还是麻烦，万一有人装了更老/更新的版本就会出错，下面给你个动态适配的方案。

这个思路是：先检查有没有已添加的Excel引用，没有的话自动创建一个Excel实例，获取当前安装的版本号，再用固定GUID添加对应版本的引用。这样不管用户装的是哪个版本，都能自动适配。

示例代码如下：

Sub AddExcelReferenceDynamically()
    Dim excelApp As Object
    Dim ref As Reference
    Dim isReferenceExists As Boolean
    
    ' 第一步：检查是否已经添加了Excel引用，避免重复添加
    For Each ref In Application.VBE.ActiveVBProject.References
        If InStr(1, ref.Name, "Excel", vbTextCompare) > 0 Then
            isReferenceExists = True
            Exit For
        End If
    Next ref
    
    If Not isReferenceExists Then
        On Error Resume Next
        ' 创建临时Excel实例，获取当前版本号
        Set excelApp = CreateObject("Excel.Application")
        If Err.Number = 0 Then
            ' 用固定GUID+当前版本号添加引用
            Application.VBE.ActiveVBProject.References.AddFromGuid _
                GUID:="{00020813-0000-0000-C000-000000000046}", _
                Major:=CLng(excelApp.Version), Minor:=0
            
            ' 关闭临时Excel实例
            excelApp.Quit
            Set excelApp = Nothing
            MsgBox "已成功添加对应版本的Excel引用！"
        Else
            MsgBox "未检测到Excel安装，或者无法添加引用，请检查权限。"
        End If
        On Error GoTo 0
    Else
        MsgBox "Excel引用已存在，无需重复添加。"
    End If
End Sub

注意事项： #

• 要确保用户的PowerPoint开启了信任对VBA工程对象模型的访问：路径是「文件→选项→信任中心→信任中心设置→宏设置」，勾选这个选项才能修改VBA工程的引用。
• 这段代码会创建一个临时Excel进程，用完会自动关闭，不会留下后台进程。

你之前用Major:=0, Minor:=0，这个参数是让系统自动找最高版本的兼容引用，但有些环境下可能识别不准确，用动态获取版本号的方式更可靠。

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