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

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

1 个答案: