VBA嵌入文件至G列第8行起报错：无法获取OLEObjects类的Add属性

这个报错大多是因为OLEObjects.Add方法的参数组合在当前Excel环境中不兼容，尤其是ClassType:="Package"这个参数在部分版本或系统下会触发问题。以下是几种可行的解决办法：

方案1：改用Shapes.AddOLEObject替代OLEObjects.Add #

Shapes.AddOLEObject的兼容性比OLEObjects.Add更好，能规避不少版本相关的问题。修改后的完整代码如下：

Sub InsertObjectsFromFiles()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filePath As String
    Dim i As Long
    Dim shp As Shape
    Dim fileExists As Boolean
    
    ' 设置目标工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据实际表名修改
    
    ' 获取F列最后一行数据行号
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    
    ' 从第8行开始循环处理
    For i = 8 To lastRow
        filePath = ws.Cells(i, "F").Value
        
        If filePath <> "" Then
            ' 检查文件是否存在
            fileExists = Dir(filePath) <> ""
            
            If fileExists Then
                On Error Resume Next
                ' 插入带图标的嵌入文件
                Set shp = ws.Shapes.AddOLEObject( _
                    Filename:=filePath, _
                    LinkToFile:=msoFalse, _
                    DisplayAsIcon:=msoTrue, _
                    IconLabel:=Dir(filePath), _
                    Left:=ws.Cells(i, "G").Left, _
                    Top:=ws.Cells(i, "G").Top, _
                    Width:=100, _
                    Height:=100)
                
                If Err.Number <> 0 Then
                    MsgBox "插入文件失败: " & filePath & vbCrLf & "错误信息: " & Err.Description, vbCritical
                    Err.Clear
                End If
                On Error GoTo 0
            Else
                MsgBox "未找到文件: " & filePath, vbExclamation
            End If
        End If
    Next i
End Sub

方案2：修复OLEObjects.Add的参数 #

如果坚持使用OLEObjects.Add，可以尝试移除ClassType:="Package"参数——当指定FileName时，Excel会自动识别对应的OLE类，无需手动指定。修改后的关键代码段：

Set obj = ws.OLEObjects.Add(FileName:=filePath, _
                            Link:=False, DisplayAsIcon:=True, _
                            IconLabel:=Dir(filePath), Left:=ws.Cells(i, "G").Left, _
                            Top:=ws.Cells(i, "G").Top, Width:=100, Height:=100)

额外排查点 #

• 工作表保护：如果目标工作表处于保护状态，会禁止插入OLE对象。可在代码开头添加ws.Unprotect Password:="你的保护密码"，结尾添加ws.Protect Password:="你的保护密码"来临时取消/恢复保护。
• 文件路径问题：确保路径不含特殊字符（如中文、空格），若有特殊字符，可给路径包裹双引号：filePath = """" & filePath & """"。
• 版本兼容性：32位/64位Excel或新旧版本的差异可能导致问题，优先选择方案1的Shapes.AddOLEObject方法。

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