在不引用工作表的情况下引用全局命名范围

我想要将数据从工作簿x中的一组命名范围导出到工作簿y中的另一组范围。 要从中导出的范围的名称将被分配到表格“Table_Export”中。 问题是我不想在这些相应的范围所在的表格中进行分类，看到我不知道实际的表名。 但由于范围是全球性的，它应该以某种方式引用他们在vba中，而不参考各自的工作表？

相关的代码可以在if语句中两个星号中的任何一个是我想要完成的地方find。

Dim x As Workbook Dim y As Workbook Set x = ThisWorkbook Set y = Workbooks.Open(Range("Export_to").Value) Dim export_control As ListObject Set export_control = x.Sheets("Control").ListObjects("Table_Export") Dim lr As Excel.ListRow For Each lr In export_control.ListRows If lr.Range(1).Value <> 0 Then *'y.Names(lr.Range(2).Value).RefersToRange.Value = x.Names(lr.Range(1).Value).RefersToRange.Value* *'y.Range(lr(Range(2).Value).Value = x.Range(lr(Range(1).Value).Value* End If Next 

Answer 1

使用相应的工作簿对象的属性名称来引用全局名称。