python pandas合并多个Excel为不同sheet，VB合并多个Excel

最新推荐文章于 2024-07-20 03:44:21 发布

fengxli

最新推荐文章于 2024-07-20 03:44:21 发布

阅读量3.6k

点赞数 1

分类专栏： python

python 专栏收录该内容

5 篇文章 1 订阅

订阅专栏

python合并Excel

　　---原创，转载请说明

　　python操作多个Excel表格合并为同一个表格的不同sheet，并且将sheet名字命名为原表格的表名

　　缺陷：Excel表格第一行第一列不能空，不然会缺失列
　　　　　速度很慢

 
         # -*- coding:utf-8 -*- 
        
         import  
         pandas as pd 
        
         import  
         os 
        
         # 结果文件 
        
         result  
         =  
         pd.ExcelWriter( 
         '123.xls' 
         ) 
        
         # 获取表格列表 
        
         origin_file_list  
         =  
         os.listdir( 
         'E:/Work/目标路径' 
         ) 
        
         print  
         origin_file_list 
        
         # 循环遍历表格 
        
         for  
         i  
         in  
         origin_file_list: 
        
         print  
         i 
        
         excel_file_name  
         =  
         i 
        
         #拼接每个文件的路径 
        
         file_path  
         =  
         'E:/Work/123/%s'  
         %  
         i 
        
         print  
         file_path 
        
         # 读取文件内容 
        
         # 跳过0行 
        
         content  
         =  
         pd.read_excel(file_path, skiprows 
         = 
         [ 
         0 
         ]) 
        
         # 有缺陷，会扩展列名 
        
         # content = pd.read_excel(file_path) 
        
         # 重新定义sheet名字 
        
         sheet_name  
         =  
         i[: 
         len 
         (i)  
         -  
         4 
         ] 
        
         # 转换为同一个表多个sheet 
        
         content.to_excel(result, sheet_name, index 
         = 
         False 
         ) 
        
         # content.to_excel() 
        
         result.save()

二：Excel表格宏命令合并

新建一个Excel表格，点击底部sheet，右键查看代码，粘贴代码，顶部运行，选择对应的多个Excel即可生成。

 
         Sub Books2Sheets() 
        
         Dim fd As FileDialog 
        
         Set  
         fd  
         =  
         Application.FileDialog(msoFileDialogFilePicker) 
        
         Dim newwb As Workbook 
        
         Set  
         newwb  
         =  
         Workbooks.Add 
        
         With fd 
        
         If .Show  
         =  
         - 
         1  
         Then 
        
         Dim vrtSelectedItem As Variant 
        
         Dim i As Integer 
        
         i  
         =  
         1 
        
         For Each vrtSelectedItem In .SelectedItems 
        
         　　Dim tempwb As Workbook 
        
         Set  
         tempwb  
         =  
         Workbooks. 
         Open 
         (vrtSelectedItem) 
        
         　　tempwb.Worksheets( 
         1 
         ).Copy Before: 
         = 
         newwb.Worksheets(i) 
        
         　　'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97 
         - 
         2003 
         的文件，如果是Excel2007，需要改成xlsx 
        
         　　newwb.Worksheets(i).Name  
         =  
         VBA.Replace(tempwb.Name,  
         ".xls" 
         , "") 
        
         　　'关闭 
        
         　　tempwb.Close SaveChanges: 
         = 
         False 
        
         　　i  
         =  
         i  
         +  
         1 
        
         Next  
         vrtSelectedItem 
        
         End If