如何用Python将Excel图表以位图粘贴到邮件？附报错求助

一、当前错误的原因与修复 #

你遇到的That name is already taken错误，核心原因是临时工作表名称重复，同时代码逻辑存在多处冗余与不稳定点：

• 循环创建多个临时工作表但未及时清理，导致重复命名
• 硬编码Sheets(3)，若工作簿内工作表数量不足3会触发异常
• 依赖剪贴板获取图片，稳定性差且易受其他程序干扰

修复后的代码 #

import win32com.client
import time
import os
from PIL import ImageGrab

def capture_image(workbook, worksheet_name, name_of_image, t=5):
    xlapp = win32com.client.DispatchEx("Excel.Application")
    xlapp.Visible = False
    xlapp.DisplayAlerts = False
    
    try:
        wb = xlapp.Workbooks.Open(workbook, None, False)
        wb.RefreshAll()
        time.sleep(t*2)
        
        xlSheet1 = wb.Sheets(worksheet_name)
        i = 0
        
        # 批量导出工作表内所有图表
        for chart in xlSheet1.ChartObjects():
            print(chart.Name)
            # 直接导出图表为图片，无需临时工作表
            img_path = os.path.join('G:\\MyFolder\\', f"{name_of_image}_{i}.png")
            chart.Chart.Export(img_path)
            i += 1

        # 若仅需导出第一个图表，可替换为以下代码
        # if xlSheet1.ChartObjects().Count > 0:
        #     chart = xlSheet1.ChartObjects(1)
        #     img_path = os.path.join('G:\\MyFolder\\', f"{name_of_image}.png")
        #     chart.Chart.Export(img_path)

    finally:
        # 强制释放Excel资源，避免进程残留
        wb.Close(SaveChanges=False)
        xlapp.Quit()
        del xlapp

workbook = 'C:\\Users\\myFolder\\myData.xlsx'
worksheet_name = 'GRAPH'
name_of_image = 'MyImage'
capture_image(workbook, worksheet_name, name_of_image)

关键修复点 #

• 移除临时工作表创建逻辑，直接调用chart.Chart.Export()导出图片，从根源避免命名冲突
• 使用finally块确保Excel工作簿关闭、进程退出，防止后台残留Excel进程
• 支持批量导出多个图表，自动生成带序号的图片文件名
• 移除剪贴板依赖，提升代码稳定性

二、更优的Excel图表插入邮件方案 #

结合你已有邮件发送程序的情况，推荐两种高效方案：

1. 直接内嵌图表到Outlook邮件正文 #

若使用Outlook发送邮件，可跳过图片保存步骤，直接将图表复制到剪贴板后粘贴到邮件正文：

# 需结合你的邮件发送逻辑调整
def insert_chart_to_outlook(workbook, worksheet_name):
    xlapp = win32com.client.DispatchEx("Excel.Application")
    xlapp.Visible = False
    xlapp.DisplayAlerts = False
    
    try:
        wb = xlapp.Workbooks.Open(workbook, None, False)
        xlSheet1 = wb.Sheets(worksheet_name)
        
        if xlSheet1.ChartObjects().Count > 0:
            # 复制图表为图片格式
            chart = xlSheet1.ChartObjects(1)
            chart.CopyPicture(Format=win32com.client.constants.xlPicture)
            
            # 初始化Outlook邮件
            outlook = win32com.client.Dispatch("Outlook.Application")
            mail = outlook.CreateItem(0)
            mail.Subject = "Excel图表邮件"
            mail.To = "recipient@example.com"
            
            # 粘贴图表到邮件正文
            mail.GetInspector().WordEditor.Range.Paste()
            mail.Send()
    finally:
        wb.Close(SaveChanges=False)
        xlapp.Quit()
        del xlapp

2. Base64编码嵌入HTML邮件 #

若发送HTML格式邮件，可将图表转为Base64编码直接嵌入正文，无需添加附件：

import base64

def chart_to_html_embed(workbook, worksheet_name):
    xlapp = win32com.client.DispatchEx("Excel.Application")
    xlapp.Visible = False
    xlapp.DisplayAlerts = False
    temp_img = "temp_chart.png"
    
    try:
        wb = xlapp.Workbooks.Open(workbook, None, False)
        xlSheet1 = wb.Sheets(worksheet_name)
        
        if xlSheet1.ChartObjects().Count > 0:
            chart = xlSheet1.ChartObjects(1)
            chart.Chart.Export(temp_img)
            
            # 转为Base64编码
            with open(temp_img, "rb") as f:
                base64_str = base64.b64encode(f.read()).decode()
            # 返回可直接嵌入HTML的图片标签
            return f'<img src="data:image/png;base64,{base64_str}" alt="业务图表" style="width:800px;">'
    finally:
        wb.Close(SaveChanges=False)
        xlapp.Quit()
        del xlapp
        # 清理临时图片
        if os.path.exists(temp_img):
            os.remove(temp_img)

# 将返回的HTML标签插入你的邮件正文即可

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