求大神指点，一个文件夹下多工作薄内容汇总到一个表格里

a411263236

各位大神给看看，我就是想把这一个文件夹里所有表的内容都放到汇总那个表里，没有数据变动也不串行，例如：ZK1205-2 里的《钻孔基本信息表》填到汇总里相应的《钻孔基本信息表》，一个工作薄里的4个工作表都需要做一遍，有没有大神帮忙的，万分感谢！

Lonzo丶

论坛里面合并工作簿的案例太多了，估计没人会再专门给你写，论坛里面搜搜吧。

liangmutou01

Sub 按钮1_Click()
  Application.ScreenUpdating = False
  Set conn = CreateObject("ADODB.Connection")
  conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
  lj = ThisWorkbook.Path & "\"
  wjm = Dir(lj & "*.xlsx")
  Do While wjm <> ""
    For Each b In Sheets
      b.Range("a" & b.[a65536].End(3).Row + 1).CopyFromRecordset _
       conn.Execute("select * from [" & lj & wjm & "].[" & b.Name & "$]")
    Next b
    wjm = Dir()
  Loop
  conn.Close
  Set conn = Nothing
  Application.ScreenUpdating = True
End Sub

opiona

http://club.excelhome.net/thread-1409141-1-1.html

a411263236

opiona 发表于 2019-10-23 10:56
http://club.excelhome.net/thread-1409141-1-1.html

我能说我太笨了么，我用的您  3_多工作簿多个工作表，指定几个位置的数据汇总（工作表格式，标题相同）
这个但是出现个C:\Users\Administrator\Desktop

a411263236

opiona 发表于 2019-10-23 10:56
http://club.excelhome.net/thread-1409141-1-1.html

我太笨了，用了您的  3_多工作簿多个工作表，指定几个位置的数据汇总（工作表格式，标题相同）  这个出现了图片中的问题

opiona

7_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题不同）

a411263236

opiona 发表于 2019-10-23 15:48
7_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题不同）

运行的时候提示 错误3706 未找到提供程序    我百度找了一下 安装了数据库也不好使  CN.Open Str_coon  看了一下是行代码出现的问题

opiona

安装ACCESS 或者插件：AccessDatabaseEngine

xiangbaoan

………………