1

我在 Excel VBA 中有一个函数可以搜索标题并使用它们来定义某些范围。看起来它可以很好地工作，但是当我调用它时，它会在这条线上中断：Set rngHeaders = Intersect(Worksheets(sheetName).UsedRange, Worksheets(sheetName).Rows(ROW_HEADERS)) 我不知道为什么。它给了我一个下标超出范围的错误。sheetName 变量是一个字符串，并且工作表 Sheet8（我传递给它）确实存在。除了我在 Sub 中调用它的行之外，我还在下面发布了整个函数。任何帮助将不胜感激。 

Function FindHeader(HEADER_NAME As String, sheetName As String) As Range

    Dim rngHeaders As Range
    Dim rngHdrFound As Range

    Const ROW_HEADERS As Integer = 1

    Set rngHeaders = Intersect(Worksheets(sheetName).UsedRange, Worksheets(sheetName).Rows(ROW_HEADERS))
    Set rngHdrFound = rngHeaders.Find(HEADER_NAME)

    If rngHdrFound Is Nothing Then
       MsgBox ("ERROR: Cannot find appropriate header.")
        Exit Function
    End If

  Set FindHeader = Range(rngHdrFound.Offset(1), rngHdrFound.End(xlDown))

End Function

调用它的行：

Sheet8.Activate
sheetName = "Sheet8"
Set rng1 = FindHeader("Client Exclusion List", sheetName)
4

1 回答 1

1

VBA 区分工作表.Name属性和.CodeName属性。.CodeName指在 VBA 项目树视图中可见的名称（通常是 Sheet1、Sheet2 等）。位于..Name之后的括号中.CodeName。此外，它.Name是 Excel 前端工作表选项卡中的值。

如果将 传递.CodeName给Worksheets集合，它将产生错误（除非.CodeName和.Name相同）。

希望这会有所帮助。

于 2015-02-20T16:18:34.773 回答