如何使用VBA提取Excel中关联对应ID的图片并按ID命名导出

方法一：Excel VBA宏（无需额外软件） #

操作步骤：

• 打开目标.xlsx文件，按下Alt + F11调出VBA编辑器
• 左侧项目栏右键点击当前工作簿名称，选择「插入」→「模块」
• 将下方代码粘贴到弹出的代码编辑窗口：

Sub 导出D列图片按C列命名()
    Dim shp As Shape
    Dim savePath As String
    Dim imgRow As Integer
    Dim fileName As String
    
    ' 请修改为你自己的导出文件夹路径，末尾必须加斜杠
    savePath = "C:\Users\XXX\Desktop\导出图片\"
    
    For Each shp In ActiveSheet.Shapes
        If shp.TopLeftCell.Column = 4 Then ' 4对应D列，无需修改
            imgRow = shp.TopLeftCell.Row
            ' 取同一行C列（第3列）的值作为文件名
            fileName = Cells(imgRow, 3).Value
            ' 导出格式可根据需求修改后缀，比如.png
            shp.CopyPicture
            With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
                .Paste
                .Export savePath & fileName & ".jpg"
                .Parent.Delete
            End With
        End If
    Next
    MsgBox "图片导出完成！"
End Sub

• 替换代码中的savePath路径为你本地的目标文件夹路径
• 按下F5运行宏，等待弹出完成提示即可

注意：运行前请先备份原Excel文件，避免误操作丢失数据

方法二：Python脚本（适合大文件批量处理） #

操作步骤：

• 先安装依赖库，运行命令：pip install openpyxl pillow
• 将下方代码保存为.py文件，修改对应配置参数后运行即可

from openpyxl import load_workbook
from PIL import Image
import io
import os

# 请修改以下三个配置参数
excel_path = "你的Excel文件完整路径.xlsx"
save_dir = "你的导出文件夹完整路径"
sheet_name = "Sheet1" # 改为你要处理的工作表名称

os.makedirs(save_dir, exist_ok=True)
wb = load_workbook(excel_path, data_only=True)
ws = wb[sheet_name]

for img in ws._images:
    # 转换为Excel的行号列号
    row = img.anchor._from.row + 1
    col = img.anchor._from.col + 1
    
    if col == 4: # 匹配D列的图片
        file_id = ws.cell(row=row, column=3).value
        if not file_id:
            continue # 跳过C列无ID的图片
        # 自动识别原图片格式保存
        img_data = io.BytesIO(img._data())
        with Image.open(img_data) as im:
            save_path = os.path.join(save_dir, f"{file_id}.{im.format.lower()}")
            im.save(save_path)

print("图片导出完成！")

注意：该方法对嵌入式图片兼容性更好，大文件处理速度远高于VBA

常见问题说明 #

• 如果C列存在重复ID，导出时会自动覆盖同名文件，建议提前检查ID唯一性
• 如果图片跨单元格摆放，只要图片左上角在D列就会被识别，建议提前调整图片对齐到单元格
• VBA运行失败的话，检查Excel宏设置是否允许运行宏，导出文件夹是否提前创建

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