Преобразование всех таблиц на активном листе в диапазоны

Я делаю инструмент, который будет очищать документы 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

Вместо того, чтобы делать это для всех рабочих листов, я просто хочу сделать это для активного рабочего листа. Как я могу это сделать?


excel vba excel-2010 worksheet
person Wilson    schedule 10.02.2017    source источник

Ответы (1)


arrow_upward
9
arrow_downward

Это должно работать:

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
person Ralph    schedule 10.02.2017