Question

EXCEL VBA 运行时错误9 下标越界

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

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

Answer 1

下标越界一般是Workbooks("电气元器件库.xlsm")或者Sheets("sheet1")造成的，如果没有对应的工作簿“电气元器件库.xlsm”、或者这个工作簿里面没有工作表“sheet1”就会导致此类错误。

注意：程序不会自动打开工作簿进行公式计算。

请检查工作簿名称。

Answer 2

sheet1看看是否此名称的工作表不错在！或者大小写应该是Sheet1

Answer 3

你改成
m=evlauate("公式")

追问

公式是什么，将上面那一句复制进去吗

追答

公式就直接用excel函数公式
如m=evaluate("counta(sheet1!d:d)")
上一个回答中的evaluate拼写错了
如果excel公式里面有双引号，改成单引号