[已解决]批量查询数据的问题

Redgirl · 发表于 2013-6-22 07:50

附件

批量查询附件.rar (148.57 KB, 下载次数: 10)

w2001pf · 发表于 2013-6-22 08:37

把你文件夹作为附件一起发，否则别人还要跟你建文件夹的，不然无法调试。

Redgirl · 发表于 2013-6-22 08:44

w2001pf 发表于 2013-6-22 08:37
把你文件夹作为附件一起发，否则别人还要跟你建文件夹的，不然无法调试。

谢谢老师关注。

490540970 · 发表于 2013-6-22 08:44

问题不是个复杂问题，就是代码蛮长的，给你查询资料建议如下：1、看VBA遍历文件夹的代码；2、VBA工作簿和表的操作。别的不是难点。

那么的帅 · 发表于 2013-6-22 12:13

490540970 发表于 2013-6-22 08:44
问题不是个复杂问题，就是代码蛮长的，给你查询资料建议如下：1、看VBA遍历文件夹的代码；2、VBA工作簿和表 ...

490540970 · 发表于 2013-6-22 19:10

那么的帅发表于 2013-6-22 12:13

不亏高手。好棒

Redgirl · 发表于 2013-6-22 19:48

那么的帅发表于 2013-6-22 12:13

老师您好，谢谢您帮助。下载试了一下。
数据文件夹下，五个工作薄 1 2 3 4 5，每个工作薄四列数据，每列1048575行。执行时，运行40秒后，出现错误提示：
未命名.jpg

For P = 1 To UBound(Arr0)

For Q = 1 To UBound(Arr2)

If Arr0(P, 1) = Arr2(Q, 1) And Arr0(P, 2) = Arr2(Q, 2) And Arr0(P, 3) = Arr2(Q, 3) Then

M1 = M1 + 1

For J = 1 To 4

Arr11(M1, J) = Arr2(Q, J)

Next J

Arr11(M1, 5) = Q

End If

Next Q

Next P

Sheets.Add after:=Sheets(Sheets.Count)

With Sheets(Sheets.Count)

不知何故？
谢谢老师。

Redgirl · 发表于 2013-6-23 09:14

那么的帅发表于 2013-6-22 12:13

老师您好。为什么工作薄中的数据，超过1000行后，就执行不了呢？能修改一下吗？谢谢！

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