如何用Python将带样式Excel表格复制到MSG文件？

要解决Excel表格样式丢失的问题，不能依赖pandas的to_html()（它仅导出数据结构，不包含单元格样式）。下面提供两种基于win32com的可靠实现方式，完整保留表头/表尾颜色、字体、边框等样式。

方法1：导出带样式的HTML嵌入（推荐） #

通过Excel的Range.Publish方法将指定表格区域导出为包含完整样式的HTML，再替换或追加到MSG正文。

import win32com.client as win32
import os
import tempfile

def read_styled_excel_to_msg(excel_file, sheet_name, msg_file, range_address=None):
    # 创建临时HTML文件存储带样式的表格
    temp_html = tempfile.mktemp(suffix=".html")
    
    try:
        # 初始化Excel应用（后台运行）
        excel = win32.Dispatch("Excel.Application")
        excel.Visible = False
        workbook = excel.Workbooks.Open(excel_file)
        worksheet = workbook.Worksheets(sheet_name)
        
        # 定位目标表格区域：指定范围或自动取已使用区域
        target_range = worksheet.Range(range_address) if range_address else worksheet.UsedRange
        
        # 导出带样式的HTML
        target_range.Publish(
            SourceType=0,  # xlSourceRange
            Filename=temp_html,
            HtmlType=0     # xlHtmlStatic
        )
        
        # 读取HTML内容
        with open(temp_html, "r", encoding="utf-8") as f:
            styled_table_html = f.read()
        
        # 更新MSG文件正文
        outlook = win32.Dispatch('Outlook.Application').GetNamespace("MAPI")
        msg = outlook.OpenSharedItem(msg_file)
        
        # 替换原有正文，若要保留原正文则改为 msg.HTMLBody += styled_table_html
        msg.HTMLBody = styled_table_html
        
        msg.SaveAs(msg_file)
        print("带样式表格已成功嵌入MSG文件")
        
    finally:
        # 清理资源
        workbook.Close(SaveChanges=False)
        excel.Quit()
        os.remove(temp_html) if os.path.exists(temp_html) else None

# 调用示例
# read_styled_excel_to_msg("data.xlsx", "Sheet1", "template.msg", "A1:E15")

关键细节 #

• Range.Publish会完整导出单元格的背景色、字体格式、边框样式，生成的HTML包含内联样式，无需额外CSS文件。
• 临时文件仅用于中转，读取后自动删除，避免冗余文件。
• 可通过range_address参数精准指定表格范围（如"A1:E15"），避免导出无关内容。

方法2：剪贴板粘贴法 #

利用Excel复制+Outlook Word编辑器粘贴的方式，直接保留原始格式。

import win32com.client as win32
import win32clipboard

def paste_excel_table_to_msg(excel_file, sheet_name, msg_file, range_address=None):
    try:
        # 复制Excel表格到剪贴板
        excel = win32.Dispatch("Excel.Application")
        excel.Visible = False
        workbook = excel.Workbooks.Open(excel_file)
        worksheet = workbook.Worksheets(sheet_name)
        
        target_range = worksheet.Range(range_address) if range_address else worksheet.UsedRange
        target_range.Copy()
        
        # 打开MSG文件并粘贴表格（保留格式）
        outlook = win32.Dispatch('Outlook.Application')
        msg = outlook.OpenSharedItem(msg_file)
        word_editor = msg.GetInspector.WordEditor
        
        # 粘贴到正文末尾，可调整位置（如定位到指定书签）
        word_editor.Content.Paste()
        
        msg.SaveAs(msg_file)
        print("表格已粘贴到MSG文件并保留样式")
        
    finally:
        workbook.Close(SaveChanges=False)
        excel.Quit()
        # 清空剪贴板（可选）
        win32clipboard.OpenClipboard()
        win32clipboard.EmptyClipboard()
        win32clipboard.CloseClipboard()

适用场景 #

此方法更贴近手动复制粘贴的逻辑，适合需要在MSG正文特定位置插入表格的场景，但依赖Outlook的Word编辑器组件（默认启用）。

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