Выгрузка содержимого таблицы nanoCAD в Excel

Olga94 · 4 Jun

Здравствуйте,

подскажите пожалуйста как с помощью vba-excel выгрузить выбранную таблицу-NanoCAD на чертеже в новый лист Excel?

Заранее спасибо!

Начало кода:

Dim acadApp As nanoCAD.Application

Dim acadDoc As nanoCAD.Document
Application.DisplayAlerts = False
Set acadDoc = acadApp.ActiveDocument

Dim objSelectionSet As nanoCAD.SelectionSet
    On Error Resume Next

        acadDoc.SelectionSets("TempSSet").Delete

    On Error GoTo 0


    Set objSelectionSet = acadDoc.SelectionSets.Add("TempSSet")

    objSelectionSet.SelectOnScreen

    If objSelectionSet.count = 0 Then Exit Sub

Dim tbl As Object
Dim exportWorkbook As Workbook

    On Error Resume Next

    Set tbl = objSelectionSet.ListObject

    On Error GoTo 0

Set exportWorkbook = Workbooks.Add
exportWorkbook.Worksheets(1).Name = "Экспортированная таблица"

?как вставить скопированную таблицу