方法之将不同excel里面相同名称的工作表合并

#########使用excel2016##########

1、将待合并的多个excel放在一个文件夹中；

2、’在该文件夹下新建一个空白的excel；

3、打开新建的excel，在表名Sheet1上右击，点击查看代码；

4、在跳出的窗口中输入一下代码：

Sub 指定表名提取成一工作薄()   '字段必须要在第一列
  On Error Resume Next
    Dim Filename$, fn$, dq$, crr()
    Set cnn = CreateObject("ADODB.Connection")
    Dim arr, n&, i&, j&, s$
    Dim MyPath$, myFile$
    Dim rs As Object
    Set d = CreateObject("scripting.dictionary")
    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0';data source=" & ThisWorkbook.FullName
   [a1:p65536].ClearContents
    MyPath = ThisWorkbook.Path & "\"
    myFile = Dir(MyPath & "*.xls*")
    n = CreateObject("Scripting.FileSystemObject").GetFolder(MyPath).Files.Count - 1    '计算文件个数，减1不包括自身
    ReDim arr(1 To 1000, 1 To n)  '定义arr,最大工作表数1000
    Do While myFile <> ""