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

我正在做一个工具，将清理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