Question

EXCEL VBA 之前运行没问题，今天运行起来老提示下标越界

m = WorksheetFunction.CountA(Workbooks("电气元器件库.xlsm").Sheets("sheet1").range("d:d"))
n = WorksheetFunction.CountA(range("d:d"))

这两句有问题吗，请教高手，谢谢

Answer 1

"电气元器件库.xlsm"这个工作簿应该事先已经打开，否则Workbooks("电气元器件库.xlsm")语句会产生下标越界错误，并且此工作簿应该包含一个名为"sheet1“的工作表，否则Sheets("sheet1")语句会导致下标越界错误。

追问

电气元器件库.xlsm 我用代码已经打开了，但是是隐藏的，不知道为什么会出现这种情况，
有没有办法让隐藏时也可以用这两句代码啊
或者我其实只想算出另外一个表里即电气元器件库.xlsm，里面的第4列非空单元格个数，有
没有其他语句可以实现，谢谢了

追答

隐藏是可以的，我只是担心你的拼写有错误，例如使用下面的代码可以显示所有已经打开的工作簿：
i=1
for each wb in workbooks
cells(i,1)=wb.name
i=i+1
next wb

Answer 2

应该是第一句有问题，可能你的工作薄名称或工作表名称发生了变化