Excel 使用GetValuePrice和接收错误,因为ref为空

Excel 使用GetValuePrice和接收错误,因为ref为空,excel,runtime-error,ref,vba,Excel,Runtime Error,Ref,Vba,我正在将文件夹中的工作表中的信息(所有文件都使用相同的模板)拉到另一个工作表中,以创建信息矩阵。 我只从每个模板中提取三个单元格,前两个单元格提取正确,因为它们位于模板模型的一张图纸上,但第三个单元格未填充,我收到一个错误。(运行时错误1004。对象范围的方法\u全局失败)我不确定这是否与我的错误有关,或者是之前发生的事情 我有以下资料: 私有函数GetValuePrice(路径、文件、工作表、参考) 我不确定要修复什么,因为我运行了另一个具有相同代码的矩阵,但更改了文件目的地,它就工作了。在我

我正在将文件夹中的工作表中的信息(所有文件都使用相同的模板)拉到另一个工作表中,以创建信息矩阵。 我只从每个模板中提取三个单元格,前两个单元格提取正确,因为它们位于模板模型的一张图纸上,但第三个单元格未填充,我收到一个错误。(运行时错误1004。对象范围的方法\u全局失败)我不确定这是否与我的错误有关,或者是之前发生的事情

我有以下资料:

私有函数GetValuePrice(路径、文件、工作表、参考)


我不确定要修复什么,因为我运行了另一个具有相同代码的矩阵,但更改了文件目的地,它就工作了。

在我的第二个子部分中,我没有在矩阵中显示正确的变量。我声明了“CC”,但显示了“AA”。因此,将AA更改为CC,它就工作了

   Dim arg As String
   If Right(path, 1) <> "\" Then path = path & "\"
   arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
     Range(ref).Range("A1").Address(, , xR1C1)
     Debug.Assert Var = 0
   GetValuePrice = ExecuteExcel4Macro(arg)
  ThisWorkbook.Sheets("Sheet1").Range("a166:h500").ClearContents
  ThisWorkbook.Sheets("Sheet1").Range("j166:v500").ClearContents
 Application.Calculation = xlCalculationManual
 ProjectInfo
  WorkLoad
 Application.Calculation = xlCalculationAutomatic
 End Sub