将OneDrive图片导入Excel时遇VBA错误'1004'求助

你的代码存在几个关键问题，导致插入图片时触发1004错误，以下是问题分析和修正方案：

核心问题点 #

• 字符串拼接错误：fName = "Image_Location + cRange.Cells(i, j)+ Image_Format1" 这行把变量名当成了字符串字面量，没有实际拼接路径；而且VBA里字符串连接应该用&而非+，+在单元格内容为数字时会触发数值运算，导致路径错误。
• Dir函数不支持HTTPS路径：Dir只能处理本地文件系统路径，无法识别OneDrive的在线HTTPS地址，用它判断图片是否存在完全无效。
• 变量未声明：多个变量未显式声明，容易引发类型错误；cItem的定位逻辑错误，循环中引用cItem.Cells(i,j)会导致位置偏移混乱。
• 缺少错误捕获：即使路径正确，网络问题或图片不存在也会触发报错，需要添加错误处理避免程序崩溃。

修正后的代码 #

Option Explicit

Sub URLPhotoInsert()
    Dim cRange As Range
    Dim cItem As Range
    Dim fNamePng As String
    Dim fNameJpg As String
    Dim img As Picture
    Dim i As Integer, j As Integer
    Dim imageLocation As String
    
    ' 替换为你的OneDrive图片根路径（注意格式：https://xxx/Images/）
    imageLocation = "https://your-onedrive-path/Images/"
    
    Set cRange = Selection
    If cRange Is Nothing Then Exit Sub ' 处理未选中区域的情况
    
    For i = 1 To cRange.Rows.Count
        For j = 1 To cRange.Columns.Count
            ' 拼接两种格式的图片路径
            fNamePng = imageLocation & cRange.Cells(i, j).Value & ".png"
            fNameJpg = imageLocation & cRange.Cells(i, j).Value & ".jpg"
            
            ' 尝试插入PNG，失败则尝试JPG
            On Error Resume Next ' 开启错误捕获
            Set img = ActiveSheet.Pictures.Insert(fNamePng)
            If Err.Number <> 0 Then
                Err.Clear
                Set img = ActiveSheet.Pictures.Insert(fNameJpg)
            End If
            On Error GoTo 0 ' 关闭错误捕获
            
            ' 如果成功插入图片，调整位置和大小
            If Not img Is Nothing Then
                Set cItem = cRange.Cells(i, j).Offset(0, 1) ' 获取当前单元格右侧的目标位置
                img.ShapeRange.Height = cItem.Height
                img.LockAspectRatio = msoTrue
                img.Left = cItem.Left
                img.Top = cItem.Top
                Set img = Nothing ' 释放对象
            End If
        Next j
    Next i
End Sub

关键修正说明 #

1. 添加Option Explicit：强制声明所有变量，避免隐式类型错误。
2. 正确拼接路径：用&连接字符串，确保路径是实际的OneDrive在线地址。
3. 替换存在性判断逻辑：通过错误捕获尝试插入两种格式的图片，替代无效的Dir函数。
4. 修正目标单元格定位：每次循环中通过cRange.Cells(i,j).Offset(0,1)获取当前单元格右侧的插入位置，避免定位混乱。
5. 错误处理：用On Error Resume Next捕获插入失败的错误，优雅切换到另一种格式尝试。

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