使用数组引用名称属性

Question

我正在开展一个项目，该项目需要我根据数组中某个位置的值来选择工作表。我已经用值填充了desArr()（字符串类型），desArr(0) 包含我要引用的工作表的名称。为了避免用户更改选项卡名称和弄乱代码的问题，我试图引用工作表的 CodeName。

通常，我可以这样做：

ThisWorkbook.Worksheets(Import.Name) 

Import 在 VB 编辑器的 (Name) 属性下指定。但是，我现在想可变地引用该名称，就像在输入中取决于desArr(0) 的值一样。我尝试执行以下操作但无济于事：

ThisWorkbook.Worksheets(desArr(0).Name)

ThisWorkbook.Worksheets(desArr(0) & ".Name")

有人知道如何解决这个问题吗？

Answer 1

只需使用：

Import

这是在不需要知道其Name 属性的情况下引用工作表对象的方法。只需使用它的变量/对象名称。以上等价于，但比

ThisWorkbook.Worksheets(Import.Name) 

您所说的“代码名称”和(Name)“属性”不是属性。它只是对象变量的名称。从我可以从您的问题中推断出，您的工作表对象称为Import，所以就使用它。

---

编辑：

很难理解你在问什么；澄清一下：

如果我理解正确，您有一张名为“Import”的工作表，并且您希望能够防范这种情况：

好的，一些用户认为重命名工作表是个好主意。请注意，这会将工作表对象的 Name 属性值更改为 "User-input crap"。 Name 属性和选项卡中写的东西总是一样；它们是一样的；它们是一对一的。

但是，工作表对象本身仍被称为Import，或者更早的名称。 （默认为Sheet1，但也许您在“属性”窗口中更改了它。）请参阅：

不管用户输入废话，我仍然可以说，例如：

Import.Cells(1, 1).Value = "frog"

我也可以这样说，没用的复杂但完全等价：

ThisWorkbook.Worksheets(Import.Name).Cells(1, 1).Value = "frog"

我可以也这样说：

ThisWorkbook.Worksheets("User-input crap").Cells(1, 1).Value = "frog"

但为此我必须知道用户在工作表选项卡中键入的内容，而我不知道。