下断点调试:在 If Workbooks(j).Name = "职工档案.xls" Then所在行,按快捷F9下断点,启动脚本之后,运行到断点处,选中“ Workbooks(j).Name”并点击右键,选择添加的监视:
按F8依次观察获得值是否为“职工档案.xls”即可。
在两个set语句下一行,加一句
debug.print wb.name
看看是否得出工作簿名字
得出名字,才说明成功了。
得不出名字,说明两个原因:
1、当前打开的工作簿,根本没有工作簿名称是“职工档案.xls”
2、str_zhigong用的不是绝对路径,或者没有正常打开工作簿
亲,如果你要用这种方式遍历,For j = 1 To Workbooks.Count
需要把涉及到的文件都先打开。也就是说Workbooks.Count指的是当前打开状态的Excel文件的个数。