将活动工作表中的所有表转换为范围

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