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

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