Вопрос : Петля до конца для того чтобы извлечь все типы таблицы

Может любое помочь сделать эту работу, я пытаюсь закрепить петлеть через каждый лист в workbook, и на каждой петле листа через каждую таблицу и извлечь тип таблицы.  Я использую первенствую class= " lineNumbers " >

1 >

Sub TryThis " prettyprint " " class= id= " codeSnippet969097 >


On конца Sub


class= 

Ответ : Петля до конца для того чтобы извлечь все типы таблицы

Вам нужно setup обозначение эта дорога:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:

Sub TryThis () Тусклое oSh как рабочий лист Тусклое oLo как ListObject Тусклое oWb как Workbook Установите oWb = ActiveWorkbook Для каждого oSh в oWb.Worksheets Для каждого oLo в oSh.ListObjects oLo.TableStyle = "" Следующее oLo Следующее oSh Подводная лодка конца