用sql实现将表1-表n里的所有数据提取到总表中来

zhsh1128 · 发表于 2012-3-12 09:08

工作表之间的数据提取.zip (46.68 KB, 下载次数: 30)

zhsh1128 · 发表于 2012-3-12 09:55

有人解答下么？在线等。

cbtaja · 发表于 2012-3-12 10:14

总表.rar (14.76 KB, 下载次数: 27)

zhsh1128 · 发表于 2012-3-12 10:26

cbtaja 发表于 2012-3-12 10:14

大哥，要求是用sql语句实现呀。

不用vba，也不用在vba中嵌套sql，只用sql语句能不能实现？

zhsh1128 · 发表于 2012-3-12 10:45

我想到的方法是：
1.在总表中新建 sheet1,sheet2 sheet3 sheet4,sheet5,sheet6,sheet7
2.建立“数据连接”.
sheet1 连接表1
sheet2 连接表2
sheet3 连接表3
sheet4 连接表4
sheet5 连接表5
sheet6 连接表n
3.从sheet1到sheet6分别输入sql语句：select * from[表1...表n$]，提取表1到表n的数据。
4.在“总表”sheet7中新建“数据连接”，连接到总表的sheet1，在这个“数据连接”中输入如下sql语句：
select * from[Sheet1$]
union all
select * from[Sheet2$]
union all
select * from[Sheet3$]
union all
select * from[Sheet4$]
union all
select * from[Sheet5$]
union all
select * from[Sheet6$]

我总觉得这个方法太笨了，有没有更优的方法？

cbtaja · 发表于 2012-3-12 11:13

要把多个不确定的工作薄中的数据合并到新工作薄的一个工作表中，使用SQL的效率是很低的，而使用VBA则是简单高效的，何乐而不为？

LMY123 · 发表于 2012-3-12 11:16

谢谢btaja大师的指导，路过学习，我把 cbtaja大师的总表放入文件夹中，没成功，请问我什么地方没做对，这是我做的附件：

工作表之间的数据提取1.rar (50.36 KB, 下载次数: 11)
请各位大师帮我看看

cbtaja · 发表于 2012-3-12 11:21

本帖最后由 cbtaja 于 2012-3-12 14:36 编辑

3楼的代码有个小问题，改正如下：
Sub 合并多工作薄的第1个表格中的数据()
Dim MyFile, MyPath, MyName, Cbook, Sht, r, n, arr
Application.ScreenUpdating = False
On Error Resume Next
n = 2
MyPath = ThisWorkbook.Path & "\"
MyFile = Dir(MyPath & "*.xlsx")
Do While MyFile <> ""
      Set Cbook = GetObject(MyPath & MyFile)
      With Cbook.Sheets("sheet1")
         r = .[a65536].End(3).Row
         arr = .Range("A2:D" & r)'原来是Sht.Range("A2:D" & r),其中的变量Sht是多余的。
      End With
      With ThisWorkbook.Sheets(1)
         .Cells(n, 1).Resize(r - 1, 4) = arr
         n = n + r-1
      End With
      Cbook.Close False
MyFile = Dir
Loop
End Sub

zhsh1128 · 发表于 2012-3-12 12:05

cbtaja 发表于 2012-3-12 11:21
3楼的代码有个小问题，改正如下：
Sub 合并多工作薄的第1个表格中的数据()
Dim MyFile, MyPath, MyName, ...

代码是不是还有有问题啊？怎么汇总不了？

zhsh1128 · 发表于 2012-3-12 14:27

8楼的代码运行后，什么表都没有提取到啊？高手来看下，代码应该没问题啊。

怎么没有数据呢？

		自动登录	找回密码
密码			免费注册