将活动工作表中的所有表格转换为范围
问题描述:
我正在制作一个清理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
而不是做这个的所有工作表的,我只是想这样做的活动工作表。我怎样才能做到这一点?
答
这应该工作:
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