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

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

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

Convert all tables in the active worksheet to ranges

excel

vba

worksheet

excel-2010