运营人员需要历年的订单数据，这就需要把多个文件夹下面的excel文件合并到一个sheet中，之前的解决的办法是用VBA把多个excel文件合并成一个表的多个sheet,再把多个sheet合并成一个sheet这种办法对数据量不多的可以应付，但是毕竟不能跟直接把多个excel文件合并成一个sheet来个方便简洁，在网上找了一圈"把多个excel文件合并成一个sheet",找到的都是类似于上面两种中的一种，VBA只会直接复制，不能修改的情况下只能改为用python处理，以下是python的处理过程
第一步导入相关的包
import warnings
warnings.filterwarnings('ignore')
import numpy as np
import pandas as pd
import xlwt
import xlrd
import os
文件所在的路径
path="/数据部/04-店铺订单/02-平台/02.苏宁易购/2018年订单/"
获得月份的列表
lists=os.listdir(path)[0:12]
遍历每个月份下的所有文件，并读取
aa=[]
for x in lists:
p=path+x
#print(p)
y=os.listdir(p)
for x in y:
#获得文件的绝对路径
yy=p+"/"+x
#print(yy)
#读取文件
yyy=pd.read_csv(yy,encoding='gbk')
#把每个文件添加至列表aa中
aa.append(yyy)
把列表AA转为dataframe
df=pd.concat(aa)
把得到的df文件输出
df.to_csv("2018.csv",encoding='gbk')
15行代码搞定，不得不说python确实是一门简洁方便的语言，脚本能解决的问题还是要交给脚本哈，后面用脚本把每天的相关文件添加至数据库

多个excel表合并成一个excel表

代码如下：
Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

看到Excel多表合并，其实常见的有2种场景
场景一：多个Excel文件需要合并为1个Excel文件(多个工作簿合并为1个工作簿)
场景二：1个Excel文件种有多个工作表，需要合并为1个工作表
首先来看下，场景一(多个Excel文件合并为1个文件)，都有哪些方法可以实现？
场景描述：如图所示，在文件夹中，有4个Excel文件，每个Excel文件的数据格式都一致，需要把4个Excel文件合并到1个Excel文件中。
每个工作簿中的内容格式都一样，为了区分，我把工作簿1中的 位置 数据，标为了“工作簿1”；工作簿2中的数据标为了“工作簿2”...以此类推。
下面雷哥推荐几种方法来实现多个Excel文件合并为1个文件
方法一：PowerQuery
Step1：单击 【数据】- 【新建查询】 - 【从文件】- 【从文件夹】
Step2：单击 【浏览】，选择文件夹路径
Step3：选择【合并并加载】
最终的效果如图所下图所示。自动增加了
Source.Name
数据列，可以很方便看到数据来自于哪个工作簿
方法二：使用CMD命令，1s搞定合并
Step1：需要把文件格式修改为 csv文件格式。打开文件，另存为csv文件即可
Step2：在文件所在路径，按【shift】+右键，点击【此处打开命令窗口】，输入
copy *.csv out.csv， 即把该路径下所有的csv文件合并到out.csv文件中。
下面来看下，场景二(多个Excel工作表合并为1个Excel工作簿)，都有哪些方法可以实现？
场景描述：如图所示，1个excel文件中，有多个工作表，需要合并到1个工作表中。
方法1：PowerQuery法
Step1：单击 【数据】- 【新建查询】 - 【从工作簿】
Step2：选择需要合并的工作表
Step3：在追加查询中，单击【将查询追加为新查询】
Step4：选择所需的工作表
Step5：单击关闭并上载
最终的效果如图所示
方法2：使用宏
Step1：按【Alt】+【F11】
Step2：输入代码，并单击三角形图标运行
Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range('A60000).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range('B1').Select Application.ScreenUpdating = True MsgBox '小主，数据合并结束啦！', vbInformation, '提示' End Sub
运行效果如下图所示，后续我们删去多余的标题行即可~
方法三：插件法 - 最简单
Step1：使用【方方格子】插件，单击【合并工作表】
Step2：选择汇总区域后，单击确定
最终的效果如下
还是插件最简单，分分钟搞定哈~创作不易，欢迎大家沟通交流，如果感觉不错，欢迎点赞支持雷哥。谢谢

可以通过更改excel代码来合并多个文件。

详细步骤：

1、新建一个文件夹。



2、将要合并的表格放到里面。



3、新建一个表格。



4、用excel打开。



5、右击Sheet1。



6、选择查看代码。



7、将下列代码复制到文本框中：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub



 

8、点击运行，即可成功合并。

 



参考资料：

百度百科-Microsoft Office Excel