VBA打开文件夹下所有excel文件并复制数据

米兹

zhaogang1960 发表于 2011-3-12 13:50
试试
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, arr

有个worksheet里一行也没有的情况，会混乱，怎么解决，能否做个判断，判断arr里是不是为空这样的？
请赐教

zhaogang1960

米兹 发表于 2012-6-21 18:44
有个worksheet里一行也没有的情况，会混乱，怎么解决，能否做个判断，判断arr里是不是为空这样的？
请赐 ...

If WorksheetFunction.CountA(.Sheets(1).[a1].CurrentRegion.Offset(1)) Then '判断区域是否有值

或

If IsArray(arr) Then '判断是否数组

米兹

zhaogang1960 发表于 2012-6-21 18:51
If WorksheetFunction.CountA(.Sheets(1).[a1].CurrentRegion.Offset(1)) Then '判断区域是否有值

或
...

十分感谢，解决了。。。

bright陶

学习了，好帖

李桥贵

老师要打开文件夹下所有excel文件并把所有工作薄中所有工件表数据都复制《分析数据》工作薄中，代码如何改。

shiruiqiang

李桥贵 发表于 2023-1-11 21:46
老师要打开文件夹下所有excel文件并把所有工作薄中所有工件表数据都复制《分析数据》工作薄中，代码如何改 ...

新手路过。在里面再循环判断 for each sht in sheets就行

huyuqun

zhaogang1960 发表于 2011-3-12 13:51
附件

请问下高手如何把分析数据表做成转置效果。就是分表不是横，总表是竖的。

dcanoe

zhaogang1960真的很热心呀，问题不论简单复杂都耐心回答

李桥贵

shiruiqiang 发表于 2023-1-12 16:37
新手路过。在里面再循环判断 for each sht in sheets就行

谢谢老师的指点。