Копирование таблицы из Excel в активный документ

Question

У меня есть документ с открытым словом, и я пытаюсь скопировать таблицу из файла Excel с помощью VBA.Код написан на слово док.Это связано с тем, что в будущем я намереваюсь вставить в документ word кнопку, которая при нажатии должна вытянуть таблицу из указанного Excel.Мой код выглядит следующим образом:

Sub GetTable()

    Dim oXL As Excel.Application
    Dim wb1 As Excel.Workbook
    Dim WorkbookToWorkOn As String
    Dim ExcelWasNotRunning As Boolean

    On Error Resume Next
    Set oXL = GetObject(, "Excel.Application")

    If Err Then
       ExcelWasNotRunning = True
       Set oXL = New Excel.Application
    End If


    Set wb1 = oXL.Workbooks.Open("*.xlsx")

    oXL.Visible = True
    wb1.Sheets("**").Range("N3:AB49").Copy
    Selection.Collapse Direction:=wdCollapseStart
    'Selection.Paste
    Selection.PasteExcelTable False, False, False
    oXL.Quit
    Set oXL = Nothing

End Sub

Код просто вставляет все, что я скопировал за последнее время, а не данные из таблицы

Answer 1

Set objExcel = CreateObject("Excel.Application")
'Change to your Excel file path
Set wb1 = objExcel.workbooks.Open("C:\Users\Lee Li Fong\Desktop\Website\Spreadsheets For Sales\Copy Excel Table to Word\template Specification.xlsm")
objExcel.Visible = True
wb1.sheets("Specification").Range("A6:F12").Copy    'Change to your sheet name & range
Selection.Collapse direction:=wdCollapseStart
Selection.Paste

objExcel.Quit
Set objExcel = Nothing