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

最新推荐文章于 2023-05-11 14:36:58 发布

weixin_30257433

最新推荐文章于 2023-05-11 14:36:58 发布

阅读量1.4k

点赞数 1

文章标签：人工智能

原文链接：http://www.cnblogs.com/balabalaeight/p/9813168.html

版权

本文介绍了如何使用Excel2016合并同一文件夹内多个Excel中名称相同的工作表。步骤包括整理文件夹，新建Excel，查看代码并输入合并宏，最后运行宏并保存为启用宏的工作簿。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#########使用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 <> ""