Excel VBA получение и использование Имя таблицы

Question

У меня возникла проблема с Excel VBA.

Я должен выполнить любую легкую задачу: скопировать/вставить переменный диапазон ячеек из «листа2» в тот же диапазон в «sheet1».

500 Строки, как в моем коде, слишком много, но я пробовал это таким образом, чтобы «поймать» переменный аспект.

Сложная часть состоит в том, что диапазон в «sheet1» представляет собой таблицу (которая создается из TFS).

Sub CopyP() 


Sheets("Sheet1").Range("B3:F500").Value = Sheets("Sheet2").Range("B3:F500").Value 

SheetObject.ListObjects (ListObjectName) 
Range("NAME OF TABLE[Iteration Path]").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

End Sub 

код [Итерация Path] является именем столбца моей таблицы, я хочу, чтобы проверить в этом столбце/с этим параметром, если «строка» пуста.

Я знаю, что код далек от того, чтобы быть хорошим или чистым, но таблица дает мне трудное копирование.

С этим кодом у меня возникла еще одна проблема: таблица создается из TFS, нет проблем с копированием в нее, НО имя таблицы является переменной (похоже, что TFS создает имя), поэтому, если я не буду вручную вводить имя в коде, «программа» не может выполнить из-за отсутствия диапазона.

Не удалось найти способ вернуть имя таблицы так или иначе.

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

Моя другая идея состоит в том, чтобы перебирать строки в листе 2, чтобы получить столько данных, сколько необходимо, а затем скопировать их с помощью итерации в таблицу. Но я думаю, что у меня была бы такая же проблема с именем таблицы.

Вся информация, которую я нахожу с помощью google, рассказывает о таблицах, где пользователь может «называть» таблицу. В моем случае я не могу, поэтому мне нужно работать с именем, которое использует TFS для моей таблицы.

Answer 1

В дополнение к моим комментариям ниже вашего вопроса, я просто набрал это в блокноте. Пожалуйста, внесите изменения в соответствии с вашими потребностями.

Это даст вам имена всех таблиц в активной таблице. Если есть несколько таблиц, вы получите несколько имен. (НЕОПРЕДЕЛЕННЫЕ КАК СТОИМОСТЬ ОТ ТЕЛЕФОНА)

Sub sample() 
    Dim objLB As ListObject, TableName As String 

    For Each objLB In ActiveSheet.ListObjects 
     TableName = objLB.Name 
     Exit For 
    Next 

    Range(TableName & "[Iteration Path]").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End Sub