将活动工作表中的所有表转换为范围-Java 学习之路

我正在制作一个清理excel文档的工具，以便它们采用数据库友好的格式（用于计划导入数据库） .

作为此工具的一部分，我想将活动工作表中的所有表转换为范围（使用VBA） . 下面的脚本几乎是我想要的 - 它将所有表转换为工作簿中 all worksheets 的范围：

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

而不是为所有工作表执行此操作，我只想为 active 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

回复于 2024-04-30T14:31:06+08:00

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

1 回答

相关问题