활성 워크 시트의 모든 테이블을 범위로 변환

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