アクティブワークシート内のすべてのテーブルを範囲に変換する

Question

クリーンアップするツールを、データベースに適した形式（データベースへのスケジュールインポート用）にするように作成しています。

このツールの一部として、アクティブなワークシート内のすべてのテーブルを（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