使用数组引用名称属性

Question

我正在处理一个项目，该项目要求我根据数组中某个位置的值选择工作表。我用值填充了desArr()（String类型），desArr(0)包含了我想要引用的表的名称。为了避免用户更改标签名称和弄乱代码的问题，我试图引用工作表的CodeName。

通常情况下，我能做到这一点：其中被列在VB编辑器的(Name)属性指定Import

ThisWorkbook.Worksheets(Import.Name) 

。但是，现在我想要根据desArr(0)的值输入输入名称。我试图做以下但无济于事：

ThisWorkbook.Worksheets(desArr(0).Name) 

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

有没有人有任何想法如何解决这个问题？

Answer 1

只需使用：

Import 

这是引用一个表对象，而不需要知道它的Name财产的方式。只需使用其变量/对象名称即可。以上是相当于，但远低于错综复杂，

ThisWorkbook.Worksheets(Import.Name) 

你指的“代号”和(Name)“属性”什么不是属性。这只是对象变量的名称。从我的问题中可以推断出，你的工作表对象被称为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" 

但为此，我不得不知道什么用户在工作表选项卡中键入，我不知道。