Диапазон имен в массиве

Question

У меня есть вариант переменной, которая содержит два диапазона имен. Я пытаюсь скопировать диапазон, используя имя диапазона, хранящегося в переменной, но я не знаю, как это сделать. Пожалуйста, смотрите ниже мой код. Есть предложения?

Dim tbl2 As Range
Dim tablearray2 As Variant

Application.ScreenUpdating = False
Application.EnableEvents = False

tablearray2 = Worksheets("Sheet2").Range("C2:C3") **<--- Here i store the name of the ranges in the tablearray2 variable**

'The tablearray2 now contains the following values: Table1, Table2 which are the names of two different ranges.

Set tbl2 = tablearray2(2,1)

tbl2.copy

End Sub

Спасибо за помощь

Answer 1

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

Sub x()

Dim tbl2 As Range
Dim tablearray2 As Variant

tablearray2 = Worksheets("Sheet2").Range("C2:C3")

Set tbl2 = Range(tablearray2(2, 1)) 'contents of C3 = "Table2"

tbl2.Copy Worksheets("Sheet2").Range("A5") 'paste range to A5

End Sub

Answer 2

Следуя предыдущему вопросу, я пытаюсь скопировать таблицу в документ word, но я получаю эту ошибку:

Ошибка времени выполнения'91:

Переменная объекта или С переменной блока не установлено

См. Мой код ниже: Private Sub commandButton2_Click ()

Dim tbl2 As Range
Dim wordapp As Word.Application
Dim mydoc As Word.Document
Dim wordtable As Word.Table
Dim tablearray2 As Variant
Dim bokkar As Variant


bookar = Array("PhoneNumber", "Occupation")

Application.ScreenUpdating = False
Application.EnableEvents = False

'fnopenworddoc <--- this is a function which open the word document

tablearray2 = Worksheets("Sheet2").Range("C2:C3")

Set tbl2 = Range(tablearray2(2, 1))
tbl2.copy
'Worksheets("Sheet1").Range("K4").PasteSpecial xlPasteAll


mydoc.Bookmarks("Occupation").Range.PasteExcelTable _
       LinkedtoExcel:=False, _
          WordFormatting:=False, _
            RTF:=False

Set wordtable = mydoc.Tables(1)
      wordtable.AutoFitBehavior (wdAutoFitWindow)

End Sub