Python調(diào)用VBA實現(xiàn)保留原始樣式的表格合并方法
之前我在《各類Excel表格批量合并問題的實現(xiàn)思路與案例》一文中演示了各種常見的表格合并的需求,但VBA復制粘貼的需求卻沒有演示,今天我演示一個基于VBA復制粘貼來實現(xiàn)表格合并的案例。
有一個Excel表有很多sheet:
現(xiàn)在我們需要在保留所有樣式的情況下,將所有sheet合并到一個sheet中。我的實現(xiàn)思路如下:
- 創(chuàng)建一個新的sheet,將第一個sheet完整合并進去
- 將后面的sheet除了表頭外都復制粘貼到新建的sheet中(排除掉不需要參與合并的sheet)
上面的操作人工進行操作會非常容易理解,下面我們看看如何用代碼實現(xiàn)呢?
首先我們打開目標文件:
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
可以看到已經(jīng)順利的實現(xiàn)了批量合并:
然后我們只需要手工或者代碼修改一個日期即可:
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 # 自動列寬調(diào)整 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()
然后根據(jù)自己的實際需求修改上述代碼即可。
到此這篇關于Python調(diào)用VBA實現(xiàn)保留原始樣式的表格合并方法的文章就介紹到這了,更多相關Python調(diào)用VBA表格合并內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關文章希望大家以后多多支持腳本之家!
相關文章
OpenCV圖像縮放resize各種插值方式的比較實現(xiàn)
OpenCV提供了resize函數(shù)來改變圖像的大小,本文主要介紹了OpenCV圖像縮放resize各種插值方式的比較實現(xiàn),分享給大家,感興趣的可以了解一下2021-06-06