将C:\Users\Administrator\Desktop\try路径下 “GZ.docx”里面第一照片批量粘贴到 D:\W路径下所有“.xlsx”工作簿“上海市农村非居建筑排查表”单元格E154

<think>我们使用Python方案，因为可以全自动处理，无需手动提取图片。 步骤： 1. 从Word文档（GZ.docx）中提取第一张图片的二进制数据。 2. 将图片数据保存为临时文件（使用tempfile模块）。 3. 遍历目标文件夹（D:\W）下所有.xlsx文件。 4. 对于每个Excel文件，打开它，定位到指定工作表（'上海市农村非居建筑排查表'）和单元格（E154）。 5. 使用openpyxl将图片插入到指定位置，并保持原始尺寸（不进行缩放）。 注意：保持原始尺寸意味着我们不会调整图片的宽度和高度，直接插入。 由于openpyxl插入图片时默认会使用原始尺寸，但我们需要确保插入位置正确（使用OneCellAnchor精确定位到E154单元格的左上角）。 代码实现如下：</think>### Python解决方案：保持原始尺寸插入图片 以下是完整的Python脚本，实现从Word文档提取第一张图片并**保持原始尺寸**批量插入Excel的功能： ```python import os import tempfile from docx import Document from openpyxl import load_workbook from openpyxl.drawing.image import Image as XLImage from openpyxl.drawing.spreadsheet_drawing import AnchorMarker, OneCellAnchor def extract_first_image_from_docx(docx_path): """从Word文档提取第一张图片（保持原始尺寸）""" doc = Document(docx_path) for rel in doc.part.rels.values(): if "image" in rel.reltype: return rel.target_part.blob raise ValueError("Word文档中未找到图片") def insert_image_to_excel(excel_dir, sheet_name, cell_ref, image_data): """将图片以原始尺寸插入Excel的指定位置""" # 创建临时图片文件 with tempfile.NamedTemporaryFile(suffix=".png", delete=False) as temp_file: temp_file.write(image_data) temp_path = temp_file.name # 遍历Excel文件 processed_count = 0 for filename in os.listdir(excel_dir): if filename.endswith(".xlsx"): file_path = os.path.join(excel_dir, filename) try: wb = load_workbook(file_path) if sheet_name not in wb.sheetnames: print(f"跳过 {filename}: 工作表 '{sheet_name}' 不存在") continue ws = wb[sheet_name] img = XLImage(temp_path) # 加载原始尺寸图片 # 获取目标单元格位置 cell = ws[cell_ref] row, col = cell.row, cell.column # 精确定位到指定单元格（不修改图片尺寸） marker = AnchorMarker(col=col-1, row=row-1, colOff=0, rowOff=0) img.anchor = OneCellAnchor(_from=marker) ws.add_image(img) wb.save(file_path) processed_count += 1 print(f"成功: {filename} 的 {cell_ref} 单元格已插入原始尺寸图片") except Exception as e: print(f"错误: 处理 {filename} 失败 - {str(e)}") os.remove(temp_path) # 清理临时文件 return processed_count if __name__ == "__main__": # 配置参数 WORD_PATH = r"C:\Users\Administrator\Desktop\try\GZ.docx" EXCEL_DIR = r"D:\W" SHEET_NAME = "上海市农村非居建筑排查表" TARGET_CELL = "E154" # 指定单元格位置 # 执行操作 try: print(f"从Word文档提取第一张图片: {WORD_PATH}") image_data = extract_first_image_from_docx(WORD_PATH) print(f"图片提取成功，大小: {len(image_data)//1024} KB") print(f"处理Excel目录: {EXCEL_DIR}") count = insert_image_to_excel(EXCEL_DIR, SHEET_NAME, TARGET_CELL, image_data) print(f"\n操作完成! 成功处理 {count} 个Excel文件") except Exception as e: print(f"程序执行出错: {str(e)}") ``` ### VBA替代方案（需手动提取图片） 如果您更倾向使用VBA，以下是替代方案（需先手动提取Word中的图片）： ```vba Sub InsertOriginalSizeImages() Dim ws As Worksheet Dim targetSheet As String Dim targetCell As String Dim imgPath As String Dim fso As Object Dim folder As Object Dim file As Object Dim wb As Workbook ' 配置参数 targetSheet = "上海市农村非居建筑排查表" targetCell = "E154" imgPath = "C:\extracted_image.png" ' 需先手动保存Word中的图片 ' 获取目标文件夹 Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder("D:\W") Application.ScreenUpdating = False Application.DisplayAlerts = False ' 遍历Excel文件 For Each file In folder.Files If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then Set wb = Workbooks.Open(file.Path) On Error Resume Next Set ws = wb.Sheets(targetSheet) If ws Is Nothing Then wb.Close False Debug.Print "跳过 " & file.Name & ": 工作表不存在" GoTo NextFile End If ' 插入图片并保持原始尺寸 With ws.Pictures.Insert(imgPath) .Top = ws.Range(targetCell).Top .Left = ws.Range(targetCell).Left .ShapeRange.LockAspectRatio = msoFalse ' 解除宽高比锁定 ' 保持原始尺寸 .Width = .Width .Height = .Height End With wb.Save wb.Close Debug.Print "成功: " & file.Name & " 的 " & targetCell & " 单元格已插入图片" NextFile: End If Next file Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "操作完成! 已处理 " & folder.Files.Count & " 个文件" End Sub ``` ### 使用说明 1. **Python方案**： - 安装依赖：`pip install python-docx openpyxl pillow` - 保存脚本为`.py`文件并执行 - 优点：全自动处理，无需手动提取图片 2. **VBA方案**： - 需先在Word中手动提取图片并保存为PNG文件 - 在Excel中打开VBA编辑器（Alt+F11） - 插入新模块并粘贴代码 - 按F5执行宏 - 优点：无需安装外部依赖 ### 关键数学公式 图片定位原理基于Excel的锚点系统： $$ \text{列索引} = \text{列号} - 1 $$ $$ \text{行索引} = \text{行号} - 1 $$ 使用`OneCellAnchor`确保图片左上角精确对齐目标单元格： $$ \text{Anchor} = (\text{colOff}, \text{rowOff}) = (0, 0) $$ ### 注意事项 1. Python方案会保持图片原始尺寸，可能超出单元格边界 2. 确保目标工作簿未被其他程序占用 3. 首次运行时建议备份Excel文件 4. Word中图片必须为嵌入式（非浮动式） > 推荐使用Python方案，它完全自动化且更可靠。VBA方案需要手动提取图片，且无法处理浮动图片[^1]。