Переименование массива, отформатированного как таблица

[ILF_ollie]

Добрый вечер.
Я разработал файл, в котором хранятся скрытые листы.
Для того, чтобы можно вносить изменения в данные шаблоны, листы копируются в эту же книгу и делаются видимыми.

На скрытом листе содержатся массивы данных, форматированные как таблицы, с именем, например, TypeOfList_TypeOfTable_Table.

При копировании листа таблица на новом листе принимает имя TypeOfList_TypeOfTable_Table1.

Данный лист в последствии переносится в другую книгу и тут начинаются проблемы.

Все линки в новой книге заявзаны на первоначальное имя и соответственно перестают работать.

Как я понимаю, нужно составить макрос, который бы находил таблицу, содержащую в названии TypeOfList_TypeOfTable_Table (например TypeOfList_TypeOfTable_Table1) и переименовывал ее в TypeOfList_TypeOfTable_Table

Но вот как это сделать не представляю.
Пожалуйста, помогите!

С уважением,

[Hugo121]

Может копировать в новую книгу? Так проще будет...

[ILF_ollie]

К сожалению, вариант с копированием в новую книгу не подходит, поскольку в одной книге может быть несколько скопированных листов одного типа и, соответственно, снова начнется нумерация таблиц.

Вопрос именно в переименовании таблицы при переносе конкпретного листа в другую книгу.

Очень буду признателен за помощ!

[Hugo121]

Так если Вы в один файл хотите скопировать несколько одноимённых диапазонов - так не получится.

[ILF_ollie]

Логика следующая.
Допустим, в книге находится лист с таблицей Ефиду.
Данный лист копируется в эту же книгу в нескольких экземплярах.
Соответственно таблице присваиваются имена: Table1, Table2 и тд.

После этого лист перемещается в книгу, где Table1 (или Table2, в зависимости от того, какой лист копировался) необходимо переименовать обратно в Table.

[Hugo121]

Я предлагаю Ефиду сразу копировать куда нужно без всяких переименований

[ILF_ollie]

Сообщение от Hugo121

Я предлагаю Ефиду сразу копировать куда нужно без всяких переименований

Сорри, опечатался, должно было быть Table.

Есть вот такой вариант, но он не подходит по следующим причинам:
1) работает для диапазона, а не для таблицы
2) он ищет не диапазон с похожим именем, а точно заданный диапазон с именем Table1
3) он уменьшает имя диапазона на 1 символ, при этом присвоенный номер может быть двузначным и более.

Помогите, пожалуйста, доработать, с учетом этих особенностей

Sub Macro1()
    
      Const myName As String = "Table1"
 
    Dim nameMy As Excel.Name
    
       For Each nameMy In ActiveWorkbook.Names
    
               If nameMy.Name = myName Then
 
                       nameMy.Name = Left(nameMy.Name, Len(nameMy.Name) - 1)
        
                     Exit For
        
        End If
        
    Next nameMy
    
 End Sub

[Hugo121]

У меня в 2003 этот код работает - но вероятно с таблицами в 2007/10 нужен другой подход.

[ILF_ollie]

Вот код, который мне подходит.
Подскажите пожалуйста, как можно его доработать, чтобы поиск осуществлялся по всей книге и можно было переименовать несколько таблиц с разным корнем одним макросом (TableABC123 в TableABC, TableXYZ123 в TableXYZ)

Sub Макрос1()
    
    '1. В константе "myName" нужно указать корень имени таблицы,
        'которое нужно найти и изменить.
    'Я для примера указал имя "Таблица".
    'Макрос будет обрабатывать имена таблиц, которые начинаются
        'словом "Таблица".
    Const myName As String = "Таблица"
    
    'Таблица в "Excel 2007" в VBA - это объект "ListObject".
    Dim myTable As Excel.ListObject
    
    'Про объект "ListObjects" я узнал при помощи макрорекордера
        'при создании таблицы.
    
    'Просматриваем все таблицы, какие есть на активном листе.
    For Each myTable In ActiveSheet.ListObjects
    
        'Если имя то, которое нам нужно.
        '"InStr" ищет в имени таблицы искомое слово.
            'Искомое слово должно находиться в начале слова.
            'Если искомое слово будет в начале слова, то будет результат "1".
        If InStr(myTable.Name, myName) = 1 Then
 
            '2. Изменяем это имя.
            myTable.Name = myName
            
            '3. Выходим из кода, т.к. на одном Excel-листе
                'не может быть несколько таблиц с одинаковым именем.
            Exit For
        
        End If
        
    Next myTable
    
End Sub

[ILF_ollie]

Итоговый вариант:

Sub Macro1()
 
 Dim myName()
Dim x
myName = Array("MCS_CalculationType_Table", "MCS_Prices_Table")

 Dim myTable As Excel.ListObject
 Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets

 For Each myTable In sh.ListObjects
For Each x In myName
 
 If InStr(myTable.Name, x) = 1 Then
 
 myTable.Name = x
 
 
 End If
 Next x
 Next myTable
Next sh
 
End Sub

Всем огромное спасибо за помощь!