[已解决]多工作薄数据汇总

安全网

grf1973 发表于 2016-1-25 22:05
23句

还有文件夹内有XLS、PDF等文件，有办法设置只选择XLS工作薄吗？

grf1973

For j = 5 To UBound(arr, 2)
                x = arr(1, j)     '要查找的内容

j=5表示从第5列开始是需要匹配的东西
UBound(arr, 2) 是第二行要查找内容的最大列（本例中是N列）
x = arr(1, j)  是J列要查找的内容（因为数组定义的是一行多列，所以每个数组元素都是arr(1,j)

另外要只打开EXCEL文件的话，代码16句改成  
If InStr(fn, ThisWorkbook.Name) = 0 And fn Like "*.xls*" Then        '如果和本文件名不同，那么打开文件，开始导入

安全网

grf1973 发表于 2016-1-26 09:16
For j = 5 To UBound(arr, 2)
                x = arr(1, j)     '要查找的内容

谢谢！就是图片名称横向对应的值和竖向对应的值是通过哪些来识别和导入的

安全网

grf1973 发表于 2016-1-26 09:16
For j = 5 To UBound(arr, 2)
                x = arr(1, j)     '要查找的内容

还有这2个位置互换，需要修改那个代码了？请老师能否告知

grf1973

请看附件。

安全网

grf1973 发表于 2016-1-26 10:18
请看附件。

老师：我希望将导入到表1的数据按月份进行汇总表2的VBA，如图示，我另外发一个贴