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

【问题标题】：Convert all tables in the active worksheet to ranges将活动工作表中的所有表格转换为范围
【发布时间】：2017-02-11 01:47:57
【问题描述】：

我正在制作一个工具来清理 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

我不想对所有工作表都这样做，我只想对活动工作表这样做。我该怎么做？

【问题讨论】：

标签： vba excel excel-2010 worksheet

【解决方案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

【讨论】：