已closures的工作簿中的CountA不起作用

我正在使用Counta函数检索已closures的工作簿中的表的列数。 该表是从同一工作簿中的另一个表创build的，并具有超链接。 即使有4列/标题，该函数返回一个零。 我需要这个数字ReDim数组，但我得到'运行时错误'9'。 当我打开工作簿并删除表右侧的所有列和从表底部的所有行下来，保存并closures，然后再试一次，它的工作原理。 有没有人经历过这个？ 谢谢您的帮助！

这是公式：

=COUNTA('" & FilePath & "[" & fileName & "]" & sheetName & "'!1:1) 

Answer 1

我认为你的公式看起来是对的。 您可能需要使用以下代码更新外部链接。

 ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources 

Answer 2

下面的代码帮助解决了我的问题。 显然，这与表格和计算设置有关。 感谢大家的意见！

 wbCalcState = Application.Calculation Application.Calculation = xlCalculationSemiautomatic 'code here If wbCalcState <> 0 Then Application.Calculation = wbCalcState Else Application.Calculation = xlCalculationAutomatic End If