求助：Python实现多Word邮件合并模板自动关联Excel数据源及优化方案

第三步：关联Word模板与Excel数据源 #

要完成Word模板和Excel数据源的关联，Windows环境下可以借助win32com.client操作Word的COM对象模型，具体实现代码如下：

核心代码示例 #

import win32com.client as win32
from tkinter import filedialog as fd

# 选择文件
excel_file = fd.askopenfilename(filetypes=[("Excel文件", "*.xlsx;*.xls")])
templates = fd.askopenfilenames(filetypes=[("Word模板", "*.dotx;*.dot;*.docx")])

if excel_file and templates:
    # 启动Word后台进程
    word = win32.gencache.EnsureDispatch('Word.Application')
    word.Visible = False

    for template_path in templates:
        try:
            # 打开Word模板
            doc = word.Documents.Open(template_path)
            # 配置邮件合并数据源
            mail_merge = doc.MailMerge
            mail_merge.OpenDataSource(
                Name=excel_file,
                Format=0,  # 对应wdOpenFormatAuto常量
                ConfirmConversions=False,
                ReadOnly=True,
                Connection=f"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={excel_file};Extended Properties=\"HDR=YES;IMEX=1;\";",
                SQLStatement="SELECT * FROM `Sheet1$`"  # 替换为你的Excel工作表名
            )
            # 保存修改后的模板
            doc.Save()
            doc.Close()
            print(f"成功关联模板：{template_path}")
        except Exception as e:
            print(f"处理模板{template_path}失败：{str(e)}")
            if 'doc' in locals():
                doc.Close(False)
    # 退出Word应用
    word.Quit()

注意：

• 需先安装pywin32库，执行命令：pip install pywin32
• SQLStatement中的Sheet1$要替换为你实际的Excel工作表名称，若工作表名含特殊字符，需用方括号包裹，比如[客户列表$]
• 若使用32位Office，需确保Python为32位版本，否则会出现COM对象调用失败的问题

更优实现方案 #

• 增强交互体验：结合tkinter的messagebox给用户弹出处理结果提示，替换控制台输出，更友好
• 添加进度反馈：用tkinter进度条组件展示批量处理的进度，让用户直观了解处理状态
• 兼容多版本Excel：根据Excel文件版本自动切换OLEDB驱动（旧版.xls用Microsoft.Jet.OLEDB.4.0，新版.xlsx用Microsoft.ACE.OLEDB.12.0）
• 跨平台替代方案：如果需要在非Windows环境运行，可使用python-docx读取Word模板、pandas读取Excel数据，手动替换模板中的占位符实现类似功能（但无法直接利用Word原生邮件合并的高级功能）

优化后带交互提示的代码示例 #

import win32com.client as win32
from tkinter import filedialog as fd, messagebox, Tk

# 初始化并隐藏tk根窗口
root = Tk()
root.withdraw()

# 选择Excel数据源
excel_file = fd.askopenfilename(filetypes=[("Excel文件", "*.xlsx;*.xls")])
if not excel_file:
    messagebox.showwarning("提示", "未选择Excel数据源文件")
    exit()

# 选择Word模板
templates = fd.askopenfilenames(filetypes=[("Word模板", "*.dotx;*.dot;*.docx")])
if not templates:
    messagebox.showwarning("提示", "未选择Word模板文件")
    exit()

success_count = 0
fail_count = 0

try:
    word = win32.gencache.EnsureDispatch('Word.Application')
    word.Visible = False

    for template_path in templates:
        try:
            doc = word.Documents.Open(template_path)
            mail_merge = doc.MailMerge
            # 根据文件后缀选择驱动
            if excel_file.endswith('.xls'):
                provider = "Microsoft.Jet.OLEDB.4.0"
            else:
                provider = "Microsoft.ACE.OLEDB.12.0"
            mail_merge.OpenDataSource(
                Name=excel_file,
                Format=0,
                ConfirmConversions=False,
                ReadOnly=True,
                Connection=f"Provider={provider};Data Source={excel_file};Extended Properties=\"HDR=YES;IMEX=1;\";",
                SQLStatement="SELECT * FROM `Sheet1$`"
            )
            doc.Save()
            doc.Close()
            success_count += 1
        except Exception as e:
            print(f"处理失败：{template_path} - {str(e)}")
            if 'doc' in locals():
                doc.Close(False)
            fail_count += 1

    word.Quit()
    messagebox.showinfo("处理完成", f"成功关联{success_count}个模板，失败{fail_count}个")
except Exception as e:
    messagebox.showerror("错误", f"程序运行出错：{str(e)}")
    if 'word' in locals():
        word.Quit()

内容的提问来源于stack exchange，提问作者Θοδωρής Πάλλης