vba - 将事件工作表中的所有表格转换为范围

Question

我正在制作一个工具，可以清理 Excel 文档，以便它们采用数据库友好的格式(用于计划导入到数据库中)。

作为此工具的一部分，我想将事件工作表中的所有表格转换为范围(使用 VBA)。下面的脚本几乎就是我想要的 - 它将所有表格转换为工作簿中所有工作表的范围:

Sub ConvertTablesToRange()
    Dim wks As Worksheet, objList As ListObject
    For Each wks In ActiveWorkbook.Worksheets
        For Each objList In wks.ListObjects
            objList.Unlist
        Next objList
    Next wks
End Sub

我只想对事件工作表执行此操作，而不是对所有工作表执行此操作。我怎样才能做到这一点？

Answer 1

这应该有效:

Sub ConvertTablesToRange()
    Dim wks As Worksheet, objList As ListObject
    Set wks = ActiveWorkbook.ActiveSheet
    For Each objList In wks.ListObjects
        objList.Unlist
    Next objList
End Sub