Python调用VBA实现保留原始样式的表格合并方法
作者:小小明-代码实体 发布时间:2022-10-18 02:40:45
标签:Python,VBA,合并
之前我在《各类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()
然后根据自己的实际需求修改上述代码即可。
来源:https://xxmdmst.blog.csdn.net/article/details/124391653
0
投稿
猜你喜欢
- 本文实例讲述了Python推导式。分享给大家供大家参考,具体如下:1. 列表推导式>>> li = [1,2,3,4,5,
- 简介网上流传的部分可以百度关键词“Python”和“word”后查看文章学习,以下内容为个人实践,修正了不能运行出错的情况。代码示例impo
- 应用场景在嵌入式开发中,常常需要将一个binary文件分割成多个文件,或者将一个binary的某块区域抓成一个单独文件。本篇blog以pyt
- Windows Server 2003系统是现在很流行的服务器操作系统,许多网站都用它来做。但是如何保证服务器的相对安全,这个只要进行一些简
- 什么是Css Hack?由于不同的浏览器,比如Internet Explorer 6,Internet Explorer 7,Mozilla
- 条件查询范围查询模糊查询条件查询all()返回全部结果集filter(**kwargs)返回满足参数定义的结果集 例如Entry.objec
- 目录一、简单字段定义1、定义 Schema 并生成 Parquet 文件2、验证 Parquet 数据文件二、含嵌套字段定义1、验证 Par
- 详细代码见仓库github地址:github.com/nerkeler/account重要提示程序默认密码:password密钥位置:./r
- 在用pyinstaller打包后不想要后面的终端命令框,但是打包时加了-w或者--noconsole命令后会导致cmd程序不能运行从而出错。
- 本文实例讲述了Python使用multiprocessing创建进程的方法。分享给大家供大家参考。具体分析如下:进程可以通过调用multip
- 数模比赛中,常常需要对数据进行处理和分析,但
- 一、含有一个装饰器#encoding: utf-8############含有一个装饰器#########def outer(func):
- 1.对于RGB三通道图片,直接用两层for循环的话,效率比较低2.可以先将RGB图片转为灰度图片,再利用numpy.where的广播机制统计
- 如下所示:def list_all_files(rootdir): import os _files = [] list = os.list
- 本文将带领大家由浅入深的去窥探一下,这个装饰器到底是何方神圣,看完本篇,装饰器就再也不是难点了.一、什么是装饰器网上有人是这么评价装饰器的,
- 本文实例讲述了Python显示进度条的方法,是Python程序设计中非常实用的技巧。分享给大家供大家参考。具体方法如下:首先,进度条和一般的
- 一直以来都是用python脚本,执行的时候就是在终端直接命令执行,或者直接输入代码执行,最近为了方便他人使用,想做个界面,可以通过里面的控件
- LearningjQuery.com 博客帖子列表的左边有一个很酷的日期,如图:从图中我们看到,“2009”垂直排列在右侧。用Firebug
- 返回页面的类容,weburl为页面urlFunction GetBytes(weburl) '创建
- 有时候会需要通过从保存下来的ckpt文件来观察其保存下来的训练完成的变量值。ckpt文件名列表:(一般是三个文件)xxxxx.ckpt.da