使用 VBA 按代号引用另一个工作簿中的工作表 [重复]

Question

我正在尝试使用 VBA 将数据从一个工作簿复制到我当前的工作簿。 InputBook 是一个工作簿对象，它引用我要从中提取数据的文件。主要问题与在 InputBook 工作簿中引用特定工作表有关。在 InputBook 中，我有一个名为 "Lines" 的工作表，其代号为 LINES。我希望通过它的代号来引用这个工作表，例如：

NumItems = WorksheetFunction.CountA(InputBook.LINES.Columns(1))

这显然行不通，我知道我可以使用以下任一方法使其发挥作用：

NumItems = WorksheetFunction.CountA(InputBook.Sheets("Lines").Columns(1))
NumItems = WorksheetFunction.CountA(InputBook.Sheets(2).Columns(1))

但是，我宁愿不使用其中任何一种方法，因为它们似乎不太健壮。有没有办法在另一个打开的工作簿中引用工作表对象的代号？谢谢。

Answer 1

您可以通过以下方式“破解”对另一个工作簿工作表代码名称的引用：

Sub UseCodeNameFromOutsideProject()
    Dim WS As Worksheet
    With Workbooks("InputBook .xls")
        Set WS = _
            .Worksheets(CStr(.VBProject.VBComponents("Lines").Properties(7)))
        debug.print WS.Name
    End With
 End Sub

您的WS 对象现在设置为在此示例中代号为“Lines”的工作表。

---

最初的灵感是here。

Answer 2

我可以将工作簿称为“我喜欢茶”，但 InputBook.I LIKE TEA.Columns(1) 不会删除它。

使用const 抽象名称或：

public enum InputSheets
   LINES = 2,
   GARMENTS = 4
end enum

允许：

InputBook.Sheets(InputSheets.LINES).Columns(1)

或

MyGetSheetFunction(InputBook, InputSheets.LINES)

您可以更进一步并使用包装类。