Excel插入对象VBA返回空白对象且致文件损坏问题求助

原代码直接通过OLEObjects.Add嵌入PDF文件，在Office 365环境下（尤其是大工作簿场景）容易触发OLE组件兼容性问题，导致对象显示空白、工作簿损坏。要实现和「插入>对象>包」完全一致的效果，需改用Windows Shell的Package对象来封装文件，以下是修复后的代码：

Sub InsertPackageObject()
    Dim pkg As Object
    Dim filePath As String
    Dim targetCell As Range
    Dim objOLE As OLEObject
    
    ' 校验目标单元格是否选中
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中一个单元格作为插入位置！", vbExclamation
        Exit Sub
    End If
    Set targetCell = Selection
    
    ' 选择要插入的PDF文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "PDF文件", "*.pdf"
        If .Show <> -1 Then Exit Sub ' 用户取消选择
        filePath = .SelectedItems(1)
    End With
    
    ' 创建Package对象，模拟手动插入"包"的操作逻辑
    Set pkg = CreateObject("Packager.Package")
    pkg.AddFile filePath
    
    ' 将包对象插入到目标单元格位置
    Set objOLE = targetCell.Worksheet.OLEObjects.Add( _
        ClassType:="Packager.Package", _
        DisplayAsIcon:=True, _
        Left:=targetCell.Left, _
        Top:=targetCell.Top, _
        Width:=72, _
        Height:=62)
    
    ' 关联包对象数据
    objOLE.Object = pkg
    
    ' 设置图标显示文本
    objOLE.IconLabel = Mid(filePath, InStrRev(filePath, "\") + 1)
    objOLE.ShapeRange.LockAspectRatio = msoFalse
    
    ' 释放对象资源
    Set pkg = Nothing
    Set objOLE = Nothing
    
    MsgBox "文件已成功插入！", vbInformation
End Sub

关键改动说明 #

• 改用Packager.Package对象：完全匹配手动「插入>对象>包」的底层实现，兼容性更强，避免OLE直接嵌入导致的损坏问题
• 增加目标单元格校验：提前拦截无效操作，减少异常触发概率
• 限制文件选择为PDF：避免误选不兼容格式引发的异常
• 显式定位插入坐标：确保对象精准对齐选中单元格
• 规范资源释放：避免内存残留影响工作簿稳定性

额外注意事项 #

1. 大工作簿操作前先保存：提前备份，避免意外损坏无法恢复
2. 检查PDF文件完整性：部分损坏的PDF即使手动插入也会异常，可尝试重新生成PDF文件
3. 自定义图标（可选）：若需要替换默认图标，可在OLEObjects.Add中添加IconFileName参数指定图标路径

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