| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA autocad как вызвать открытую книгу excel?

VBA autocad как вызвать открытую книгу excel?

Ответ
Поиск в этой теме
Непрочитано 08.02.2018, 18:53 #1
VBA autocad как вызвать открытую книгу excel?
Vadim_EC
 
Регистрация: 08.02.2018
Сообщений: 13

Добрый день!
Подскажите, пожалуйста, как обратиться к открытой книге excel (код запускается из чертежа autocad)
И еще один вопрос: как обновить файл экселя без выхода и его последующего открытия?
Зарание, спасибо!
Код:
[Выделить все]
Sub s_ObjectIDaLengthtoExcel()
    Dim EA As Excel.Application
    Dim WB As Excel.Workbook
    Dim WS As Excel.Worksheet
    
    Dim vao_Selection_Set As AcadSelectionSet
    Dim vop_Polyline As Variant
    Set vao_Selection_Set = f_Make_Selection_Set()
    n = 1
    Set EA = Excel.Application
    Set WB = EA.Workbooks.Open("C:\Users\Vadim\Desktop\Книга1.xlsm")
    Set WS = WB.Worksheets("Лист3")
    For Each vop_Polyline In vao_Selection_Set
    If vop_Polyline.ObjectName = "AcDbPolyline" Then
        n = n + 1
        WS.Cells((n), 1) = vop_Polyline.ObjectID
        WS.Cells((n), 2) = vop_Polyline.Length
    End If
    Next
    'EA.ScreenUpdating = True 'включаем обновление экрана
    EA.Quit
End Sub

Последний раз редактировалось Кулик Алексей aka kpblc, 08.02.2018 в 19:19.
Просмотров: 3606
 
Непрочитано 23.02.2018, 14:32
#2
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


Цитата:
Сообщение от Vadim_EC Посмотреть сообщение
Set EA = Excel.Application
Ну как минимум, используйте GetObject - акад за вас связь с сервером автоматизации экселя устанавливать не будет.

Цитата:
Сообщение от Vadim_EC Посмотреть сообщение
обратиться к открытой книге excel (код запускается из чертежа autocad)
Получили же ссылку на книгу WB - и работайте дальше аналогично, как делали бы в экселе.

Цитата:
Сообщение от Vadim_EC Посмотреть сообщение
EA.Quit
Смелый ход - не сохранив книгу, закрывать приложение) Но бессмысленный с точки зрения автоматизации. Да и в экселе могут быть открыты и другие нужные документы в данный момент - если открыли документ, то и закрывайте только его с сохранением.
Сергей812 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA autocad как вызвать открытую книгу excel?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заполнение размеров в Autocad из Excel zenija2007 AutoCAD 9 18.09.2015 12:53
связь текстовых полей AutoCad с ячейками в Excel April AutoCAD 9 29.06.2014 12:35
Привязка таблицы Excel к чертежу AutoCad Teo-one Программирование 5 22.03.2014 00:11
Как при помощи VBA открыть OLE объект (Excel) в AutoCad 2013 Stormy_Day Программирование 3 13.03.2014 10:37
Подключение Excel к AutoCad 2008 c помощью базы ODBC Eddicordo AutoCAD 4 03.02.2011 17:01