Excel VBA在无效的工作表上获取表范围

Question

我不知道为什么这个说法行不通。

Rng = Worksheets(sheetName).ListObjects(table).Range.Select

我有一个带有一个按钮的工作表“ sheetX”，该按钮在全局工作区“ Thisworkbook”中调用子过程“ export_json”。 我希望“ Thisworkbook”中的子进程引用“ A2”处“ sheetX”上的表范围，但它给出错误“应用程序定义或对象定义的错误”。 我不想使用Application.Goto

这是为什么？ 我忽略了一些基本的东西

Public Sub CommandButton1_Click()
    sheet = ActiveSheet.Name
    Call ThisWorkbook.export_json(sheet)
End Sub

Public Sub export_json(sheetName)
    table = ThisWorkbook.get_table(Worksheets(sheetName).Range("A2"))
    Rng = Worksheets(sheetName).ListObjects(table).Range.Select
    Rng = Selection.Address

table是字符串类型，而sheet是字符串类型的正确工作表名称，因此这不是问题。

Answer 1

您的语法看起来有些Rng ，当您尝试在函数export_json()声明Rng ，应将其作为字符串传递。

Public Sub CommandButton1_Click()

    Dim sheetX As String
    sheetX = ActiveSheet.Name
    Call export_json("sheetX")

End Sub

Private Function export_json(sheetName As String)

    table = ThisWorkbook.get_table(Worksheets(sheetName).Range("A2"))
    Worksheets(sheetName).ListObjects(table).Range.Select

End Function

Answer 2

尝试下面的代码，无需使用Select 。

另外，我不清楚为什么将Function的代码保留在ThisWorkbook模块中，而不是在常规模块中。

Public Sub CommandButton1_Click()

    Dim TableRangeString As String

    TableRangeString = ThisWorkbook.export_json(ActiveSheet.Name)

    ' for debug
    MsgBox TableRangeString

End Sub

---

Public Function export_json(sheetName) As String
    ' use the function to return the Range.Address by changing it to return a String

    Dim Rng As Range

    Set Rng = Worksheets(sheetName).Range("A2").ListObject.Range
    export_json = Rng.Address

End Function