命名值保持不变

Question

我在这里遇到了VBA的设计问题。我正在从多个工作簿加载数据，并引用某些命名值。但是，问题是命名值都是相同的。因此，当我评估数据时，它每次都会显示与工作簿无关的相同值，我将从中加载命名值。

这是因为命名管理器一次只能携带一个引用。如何确保捕获正确的参考？有没有办法例如强制Excel用命令值替换/清除命名值并进行正确的引用，即执行数据清除？

代码示例：

  Do While fileName <> ""
    Workbooks.Open (directory & fileName)
    Workbooks(fileName).Worksheets(Sheet3).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) ' in this workbook sheet there are references to named values (for all the workbooks loaded, the name of the named values is the same
      With wsCalculations
             .Cells(j, i).Value = "=" + ary(0)
             .Cells(j, i + 1).Value = "=" + ary(1)
       End With
     Workbooks(fileName).Close
   Loop

此外：我注意到，当删除命名值（工作簿作用域并在复制的工作表本身上定义）时，它们实际上不会被删除，而是在删除后立即通过名称管理器和VBA代码重新创建。如何删除这些引用以便它们不会被重新创建？

非常感谢。