[已解决]如何用代码批量查询指定数据？

Redgirl · 发表于 2013-5-25 09:03

附件

批量查询指定数据.rar (252.77 KB, 下载次数: 9)

那么的帅 · 发表于 2013-5-25 10:03

因为数据文件夹只有5个文件，所以代码为 5，如果有49个文件，把5修改成49，其他代码不要改
代码中有注释

301547-VBA-批量查询指定数据.rar (267.62 KB, 下载次数: 21)

Redgirl · 发表于 2013-5-25 10:52

那么的帅发表于 2013-5-25 10:03
因为数据文件夹只有5个文件，所以代码为 5，如果有49个文件，把5修改成49，其他代码不要改
代码中有注释
...

老师您好，谢谢您帮助。里面一共有  四个地方有 5  都要改吗？

For i = 1 To 5 '49 因为数据文件夹只有5个文件，所以代码为 5，如果有49个文件，把5修改成49，其他代码不要改
      myFile = Format(i, "00") & ".xlsx"
      Set AK = XLapp.Workbooks.Open(myPath & myFile)
      XLapp.Visible = False
      With AK
         For j = 2 To 49
            With .Sheets(j)
                  lr = .Range("A" & .Rows.Count).End(xlUp).Row
                  arr1 = .Range("A1:E" & lr)
                  For p = 1 To lr Step 3
                     If arr1(p, 1) = TJ1 And arr1(p + 1, 1) = TJ2 And Round(arr1(p, 5) - arr1(p + 1, 5), 0) = TJ3 Then
                        m1 = m1 + 1
                        ReDim Preserve Arr11(1 To 7, 1 To m1 * 3)
                        For Y = 1 To 5
                              Arr11(Y, m1 * 3 - 2) = arr1(p, Y)
                              Arr11(Y, m1 * 3 - 1) = arr1(p + 1, Y)

那么的帅 · 发表于 2013-5-25 11:14

Redgirl 发表于 2013-5-25 10:52
老师您好，谢谢您帮助。里面一共有四个地方有 5 都要改吗？

For i = 1 To 5 '49 因为数据文件 ...

只改注释那一句

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

[已解决]如何用代码批量查询指定数据？

相关帖子

评分