Excel VBA插入对象报错：运行时错误1004，OLEObjects类Add方法失败

你的代码存在几个关键问题，直接导致了1004运行时错误：

1. 变量名拼写错误 #

你定义的变量是Fl，但后续提取文件名时误写成了F1（数字1），这会导致程序试图读取单元格F1的内容，而非用户选中的文件路径，自然找不到目标文件。

2. 仅传递文件名而非完整路径 #

OLEObjects.Add的Filename参数需要完整文件路径，即便你设置了ChDir，如果用户选择的文件不在C:\temp目录下，仅传文件名会让系统无法定位到文件。

3. 可选优化：限定文件选择类型 #

原代码未限制文件类型，用户可能选中非图片文件，建议在GetOpenFilename中指定图片格式，提升操作精准度。

修复后的完整代码 #

Sub add_file()
    Dim Fl As Variant
    Dim fullFilePath As String
    
    ' 设置初始目录（可选）
    ChDrive "C:"
    ChDir "C:\temp"
    
    ' 仅允许选择常见图片格式，可按需添加更多
    Fl = Application.GetOpenFilename( _
        FileFilter:="图片文件 (*.jpg;*.png;*.gif;*.bmp), *.jpg;*.png;*.gif;*.bmp", _
        Title:="选择需要上传的图片")
    
    If Fl = False Then Exit Sub ' 用户取消选择
    
    fullFilePath = CStr(Fl) ' 转换为字符串类型
    
    ' 添加OLE对象，使用完整路径，设置为嵌入模式（Link:=False更稳定）
    Sheet1.OLEObjects.Add _
        Filename:=fullFilePath, _
        Link:=False, _
        DisplayAsIcon:=True, _
        IconIndex:=0, _
        IconLabel:=Mid$(fullFilePath, InStrRev(fullFilePath, "\") + 1)
End Sub

额外说明 #

• 若需要链接而非嵌入文件，可保持Link:=True，但需确保文件后续不会被移动或删除，否则OLE对象会失效。
• 若要直接显示图片内容而非图标，将DisplayAsIcon:=True改为DisplayAsIcon:=False即可。

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