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

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

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

抱歉，这个代码是从多工作薄且多工作表合并的代码修改过来的，所以那个Sht变量多余了。下面的代码我自己已经做了测试，你再试下。
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)
      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 14:35

cbtaja 发表于 2012-3-12 14:31
抱歉，这个代码是从多工作薄且多工作表合并的代码修改过来的，所以那个Sht变量多余了。下面的代码我自己已经 ...

哦，原来在于多了一个sht。

那个从多工作薄且多工作表合并的代码能不能给个链接，这个应用对我的工作来说也很重要。我想学习下。

先谢了。

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

zhsh1128 发表于 2012-3-12 14:35
哦，原来在于多了一个sht。

那个从多工作薄且多工作表合并的代码能不能给个链接，这个应用对我的工作 ...

好的，请参考下面帖子4楼的附件。
http://club.excelhome.net/forum. ... 564&pid=5734081

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

cbtaja 发表于 2012-3-12 14:39
好的，请参考下面帖子4楼的附件。
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&pt ...

万分感谢！！！

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

cbtaja 发表于 2012-3-12 14:31
抱歉，这个代码是从多工作薄且多工作表合并的代码修改过来的，所以那个Sht变量多余了。下面的代码我自己已经 ...

MyPath = ThisWorkbook.Path & "\" ' 指定路径。
MyFile = Dir(MyPath & "*.xls")
Do While MyFile <> "" ' 开始循环。
If MyFile <> ThisWorkbook.Name

这段是在http://club.excelhome.net/forum. ... d=838564&page=1这个帖子里的代码。

下面这段是本帖中的相应代码：

MyPath = ThisWorkbook.Path & "\"
MyFile = Dir(MyPath & "*.xlsx")
Do While MyFile <> ""

两者相比，多了一句：If MyFile <> ThisWorkbook.Name

其实这个Dir(MyPath & "*.xls")返回当前路径下的文件名，是不包含打开的文件的。因此If MyFile <> ThisWorkbook.Name 这句好像不必要，是不是？

另外，我有一个新的问题：dir是随机提取文件名的，这样合并工作薄时候也是随机的，如果要求合并多个工作薄的时候，按工作薄的名称升序进行合并，怎么写代码？

还望赐教。

cbtaja · 发表于 2012-3-12 18:03

zhsh1128 发表于 2012-3-12 16:27
MyPath = ThisWorkbook.Path & "\" ' 指定路径。
MyFile = Dir(MyPath & "*.xls")
Do While MyFile ...

这两个帖子中的情况当然是不一样的。
在那个贴子中，使用的是EXCEL2003格式的xls工作薄，汇总表也是同样的xls工作薄，DIR函数使用*.xls作为筛选条件时，是有可能把汇总的表格也筛选出来的，所以要用if语句进行判断处理，

而在本帖中，由于汇总工作薄是含宏代码的EXCEL2007版的.xlsm格式，而各分表是不包含宏代码的.xlsx
格式，当使用*.xlsx作为dir函数的筛选条件时，并不会把汇总表一同筛选出来，当然也就不必再用if语句处理了。

zhsh1128 · 发表于 2012-3-12 18:47

cbtaja 发表于 2012-3-12 18:03
这两个帖子中的情况当然是不一样的。
在那个贴子中，使用的是EXCEL2003格式的xls工作薄，汇总表也是同样 ...

明白了，受教了。

zhsh1128 · 发表于 2012-3-12 18:48

cbtaja 发表于 2012-3-12 18:03
这两个帖子中的情况当然是不一样的。
在那个贴子中，使用的是EXCEL2003格式的xls工作薄，汇总表也是同样 ...

另外，我有一个新的问题：dir是随机提取文件名的，这样合并工作薄时候也是随机的，如果要求合并多个工作薄的时候，按工作薄的名称升序进行合并，怎么写代码？

cbtaja · 发表于 2012-3-13 02:51

zhsh1128 发表于 2012-3-12 18:48
另外，我有一个新的问题：dir是随机提取文件名的，这样合并工作薄时候也是随机的，如果要求合并多个工作薄 ...

虽然在帮助文档的介绍中说到Dir函数所得的“文件名并不会以特定的次序返回”，但是事实上，当没有改变筛选条件时，文件名默认是按升序返回的。
所以，当想要按工作薄名称升序依次合并多个工作薄时，代码并不需要做特别的处理。而如果是要按工作薄名称降序或其它特定的次序合并，则可以考虑在合并数据时，同时记录排序所需要的工作薄名称或其它特定的排序依据，先合并然后再排序即可。

zhsh1128 · 发表于 2012-3-13 09:19

文件名默认是按升序返回的。

这个是不对的。

如果工作薄的名称是中文呢？排序就不是按升序了。看下附件。

中文名dir排序问题.rar (52.84 KB, 下载次数: 8)

附件中按文件名的先后顺序：得分.xlsx 的饿.xlsx 点辐射.xlsx 二.xlsx 黄河口.xlsx 松岛枫.xlsx 的最后一行分别是a,b,c,d,e,f

合并后的总表的文件名的先后顺序是：二.xlsx 得分.xlsx 松岛枫.xlsx 点辐射.xlsx 的饿.xlsx 黄河口.xlsx

这个合并顺序并不是按文件名的升序进行合并的。

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