excel批量导出图片代码，图片名称在A列，图片在B列，用vba怎么实现

在Excel VBA中，你可以通过以下步骤来批量导出A列图片名称对应的B列图片到指定文件夹： ```vba Sub ExportImages() Dim rng As Range, i As Long, picPath As String, filename As String ' 设置图片保存的路径 picPath = "C:\YourSaveFolder\" ' 将 "C:\YourSaveFolder\" 替换为你想要保存图片的实际路径 ' 遍历A列和B列 Set rng = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row) ' 获取A列到最后一行的数据范围 For i = 1 To rng.Rows.Count ' 获取图片名称和路径 filename = rng.Cells(i, 1).Value ' 图片名 If Not IsEmpty(rng.Cells(i, 2)) Then ' 检查图片是否为空 ' 创建完整的图片路径 picPath = picPath & filename & ".jpg" ' 这里假设所有图片都是.jpg格式，可根据需要调整 ' 尝试复制图片到指定路径 On Error Resume Next ActiveSheet.Pictures控件(rng.Cells(i, 2)).CopyPicture Appearance:=xlScreen, Format:=xlBitmap On Error GoTo 0 ' 如果复制成功则粘贴到目标路径 If Err.Number = 0 Then Application.DisplayAlerts = False Pictures.Paste Picture:=picPath Application.DisplayAlerts = True Kill picPath ' 删除临时复制的图片防止空间占用过多 End If End If Next i End Sub ``` 这个VBA宏首先设置了一个保存路径，然后遍历A列和B列。对于每一行，它会检查B列是否有图片，如果有，则将图片复制并粘贴到指定路径，同时删除原图以节省磁盘空间。 执行此宏之前，请确保已经启用VBA，并且修改`picPath`变量指向你需要保存图片的实际位置。