软件:EXCEL
版本:2010
请问版上前辈，我前两天更新WIN10，今日执行之前在WIN7所写的VBA
程式如下 https://reurl.cc/9z3X9Y
发现抓不到循环(红字段落)，请问应该如何解决
谢谢

以宏来话，是否要找子目录d:\BOM内副档名为xls呢如果是的话filename=dir(path & "*.xls") 就不是这个意思这是指找d槽d:\下档名为BOM开头且副档名为xls的档案所以如果是要找子目录d:\bom的话，应是dir(path & "\*.xls")

谢谢s大，不过满好奇为什么在win7的时候可以执行

这方面就看原po看是否有其他win7作业系统测试看看了因为我本身也是win7，也是要以path & "\*.xls"的方式来找才会是找子目录BOM下的xls档案

了解我再找机会尝试~S大方法成功可以跑~感谢