在工作中經(jīng)常遇到需要打開許多個excel表格，然后合并的需求，合并的同時要求格式必須原汁原味的保留。利用VBA代碼可以比較輕松的解決，現(xiàn)在我們來看Python中如何實(shí)現(xiàn)。

上代碼：

from openpyxl import Workbookfrom win32com.client import Dispatchimport osimport datetime def copy_excel_file(source_file_list, destination_file): run_app = Dispatch(’Excel.Application’) run_app.Visible = False # 改為True可以看到excel的打開窗口 for file in source_file_list: source_workbook = run_app.Workbooks.Open(Filename=file) destination_workbook = run_app.Workbooks.Open(Filename=destination_file) source_workbook.Worksheets(1).Copy(Before=destination_workbook.Worksheets(1)) destination_workbook.Close(SaveChanges=True) run_app.Quit() class ParameterGenerator: def __init__(self): # self.directory_path = directory_path self.file_lists = [] def creat_xlsx(self, directory_path): obj = Workbook() if not os.path.exists(directory_path + os.sep + ’joined’): os.mkdir(directory_path + os.sep + ’joined’) date = str(datetime.datetime.today())[0:10] obj.save(directory_path + os.sep + ’joined’ + os.sep + ’joined {}.xlsx’.format(date)) def get_file_list(self, directory_path): entry_lists = os.scandir(directory_path) for entry_list in entry_lists: if entry_list.is_file():if ’~$’ not in entry_list.path: self.file_lists.append(entry_list.path) return self.file_lists def run(self, directory_path): file_lists = self.get_file_list(directory_path) self.creat_xlsx(directory_path) destination_file = str(self.get_file_list(directory_path + os.sep + ’joined’)[-1]) file_lists.pop(-1) return file_lists, destination_fileif __name__ == '__main__': directory_path = r’D:Excel目錄’ param = ParameterGenerator() source_file_list, destination_file = param.run(directory_path) copy_excel_file(source_file_list, destination_file)

輸出是文件夾下新建一個’joined‘的文件夾，里面有一個合并后的文件’joined xxxx-xx-xx.xlsx’，如下：

目前發(fā)現(xiàn)有兩個需要注意的問題：

1. 需要合并的文件中不能有隱藏的表格，否則，會跳過該文件；

2. 文件名中不可以字符意外的標(biāo)記，比如括號之類的。

最后，調(diào)用接口的速度有點(diǎn)慢，以后有機(jī)會還是看openpyxl是否可以實(shí)現(xiàn)一下，含格式的合并。xlwings是類似的實(shí)現(xiàn)，估計(jì)速度也差不多的慢。

以上就是本文的全部內(nèi)容，希望對大家的學(xué)習(xí)有所幫助，也希望大家多多支持好吧啦網(wǎng)。