Python调用VBA实现保留原始样式的表格合并方法

时间:2023-02-03 小小明-代码实体人气:0

之前我在《各类Excel表格批量合并问题的实现思路与案例》一文中演示了各种常见的表格合并的需求，但VBA复制粘贴的需求却没有演示，今天我演示一个基于VBA复制粘贴来实现表格合并的案例。

有一个Excel表有很多sheet：

现在我们需要在保留所有样式的情况下，将所有sheet合并到一个sheet中。我的实现思路如下：

创建一个新的sheet，将第一个sheet完整合并进去
将后面的sheet除了表头外都复制粘贴到新建的sheet中（排除掉不需要参与合并的sheet）

上面的操作人工进行操作会非常容易理解，下面我们看看如何用代码实现呢？

首先我们打开目标文件：

import win32com.client as win32  # 导入模块
import os

excel_app = win32.gencache.EnsureDispatch('Excel.Application')
# 可以看到打开的Excel软件
excel_app.Visible = True
# vba只支持传入绝对路径
filename = os.path.abspath("车辆运营日报表2月份.xlsx")
wb = excel_app.Workbooks.Open(filename)

可以查看一个全部的sheet名称：

sheet_names = [sh.Name for sh in wb.Sheets]
print(sheet_names)

['2月6日', '2月8日', '2月9日', '2月10日', '2月11日', '2月12日', '2月14日', '2月15日', '2月16日', '无', '2月17日', '2月18日', '2月19日', '2月20日', '2月21日', '2月22日', '2月23日', '2月24日', '2月25日', '2月26日', '2月27日', '2月28日']

然后开始进行批量合并：

start_num, dest_name = 5, "2月合并"

dest = wb.Sheets.Add(After=wb.Sheets(wb.Sheets.Count))
dest.Name = dest_name
pos = start_num
for i, sheet in enumerate(wb.Sheets):
    if sheet.Name in ("无", dest_name):
        continue
    print(sheet.Name)
    max_rows = sheet.Range("A65535").End(-4162).Row
    max_cols = sheet.UsedRange.Columns.Count
    print(max_rows, max_cols)
    sheet.Activate()
    n = 1 if i == 0 else start_num
    rng = sheet.Range(sheet.Cells(n, 1), sheet.Cells(max_rows, max_cols))
    rng.Select()
    excel_app.Selection.Copy()
    dest.Activate()
    dest.Range(f"A{pos}").Activate()
    dest.Paste()
    pos += max_rows-n+1

可以看到已经顺利的实现了批量合并：

然后我们只需要手工或者代码修改一个日期即可：

dest.Range("M2").Value = dest.Range("M2").Value[:-2]

最后就可以保存并退出了：

wb.SaveAs(os.path.abspath(f"{filename}_合并.xlsx"))
wb.Close()
excel_app.Quit()

最终完整代码为：

import win32com.client as win32  # 导入模块
import os

excel_app = win32.gencache.EnsureDispatch('Excel.Application')
# 可以看到打开的Excel软件
excel_app.Visible = True
# vba只支持传入绝对路径
filename = "车辆运营日报表2月份.xlsx"
wb = excel_app.Workbooks.Open(os.path.abspath(filename))

start_num, dest_name, filter_names = 5, "2月合并", ("无",)

excel_app.ScreenUpdating = False
dest = wb.Sheets.Add(After=wb.Sheets(wb.Sheets.Count))
dest.Name = dest_name
pos = 1
for i, sheet in enumerate(wb.Sheets):
    if sheet.Name in (dest_name, *filter_names):
        continue
    max_rows = sheet.Range("A65535").End(-4162).Row
    max_cols = sheet.UsedRange.Columns.Count
    print(sheet.Name, max_rows, max_cols)
    sheet.Activate()
    n = 1 if i == 0 else start_num
    rng = sheet.Range(sheet.Cells(n, 1), sheet.Cells(max_rows, max_cols))
    rng.Select()
    excel_app.Selection.Copy()
    dest.Activate()
    dest.Range(f"A{pos}").Activate()
    dest.Paste()
    pos += max_rows-n+1
# 自动列宽调整
excel_app.Selection.EntireColumn.AutoFit()
# 修改日期
dest.Range("M2").Value = dest.Range("M2").Value[:-2]
excel_app.ScreenUpdating = True

# 保存并退出
wb.SaveAs(os.path.abspath(f"{filename}_合并.xlsx"))
wb.Close()
excel_app.Quit()

然后根据自己的实际需求修改上述代码即可。

加载全部内容