Цитирование через рабочие листы для преобразования диапазона в таблицу

Question

Я пытаюсь создать процедуру циклирования, которая проходит через несколько листов и преобразует данные в таблицу. Я думаю, что мой код продолжает ломаться, потому что, очевидно, каждый массив может иметь только один экземпляр «Table1». У меня есть пара вопросов:

1: Есть ли способ динамически назвать каждую таблицу. Пример: укажите имя таблицы в заголовке рабочего листа?

2: как я могу создать код обработки ошибок, который выходит из подпрограммы, если уже существует существующая таблица. EX. Я уже запустил это в своей существующей книге, но добавил новый лист с необработанными данными и все равно должен преобразовать его в таблицу.

Вот что я до сих пор, все и вся помощь оценена (новый VBA)

Sub newTables() 


' newTables Macro 
' T 
' 
' Keyboard Shortcut: Ctrl+Shift+T 

Dim rngSelectionRange As Range 
Set rngSelectionRange = ActiveSheet.Range(Selection.Address) 

For i = 1 To Worksheets.Count 

    Worksheets(i).Range("A1").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    'where it breaks 
    ActiveSheet.ListObjects.Add(xlSrcRange, rngSelectionRange, , xlYes).Name = "Table1" 
    'Range("Table1[#All]").Select 
    'ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight2" 
    'ActiveSheet.ListObjects("Employ").Name = "Employee_Data" 
    If ActiveSheet.ListObjects.Count > 1 Then 
    End If 

Next i 
End Sub 

Answer 1

Как насчет:

ActiveSheet.ListObjects.Add(xlSrcRange, rngSelectionRange, , xlYes).Name = "Table" & i 

Это имя первой таблицы в цикле Table1 , затем Table2 и т. д.

Или, если вы хотите, чтобы имя рабочего листа, замените "Table" & i на: Worksheets(i).Name, хотя perh aps, вы хотите добавить префикс, скажем, «Таблица», чтобы избежать путаницы.

Answer 2

Я думаю, что это в основном то, что вы хотите. Вы можете проверить, есть ли в ассортименте ListObject, который удобен здесь:

Sub AddTablesIfNone() 
Dim ws As Excel.Worksheet 

    For Each ws In ActiveWorkbook.Worksheets 
     With ws 
      If .UsedRange.ListObject Is Nothing Then 
       .ListObjects.Add SourceType:=xlSrcRange, Source:=.UsedRange, xllistobjecthasHeaders:=xlYes 
      End If 
     End With 
    Next ws 
    End Sub