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

我正在制作一个可以清除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

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

最佳答案

这应该工作:

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