Excel-Autocad позднее связывание

[gsg]

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

Возникла необходимость работы с автокадом без ссылок на библиотеки.
Столкнулся со следующей проблеммой - как присвоить значение переменной приложения автокада, если он уже запущен? Нашел такой вариант:

If Tasks.Exists("Autocad") = False Then
    Set Acd = CreateObject("Autocad.Application")
    Set AcdDoc = Acd.ActiveDocument
' с этой частью нет проблем
Else
    Tasks("Autocad").Activate
    Debug.Print Tasks("Autocad").Name ' пишет:AutoCAD Civil 3D 2011 - [Чертеж1.dwg]
    Debug.Print Tasks("Autocad").Application.Name ' пишет: Microsoft Word - не понятно...
    'Set Acd =??? - собственно, основной вопрос
End If

[DiemonStar]

    Tasks("Autocad").Activate
    Debug.Print Tasks("Autocad").Name ' пишет:AutoCAD Civil 3D 2011 - [Чертеж1.dwg]
    Debug.Print Tasks("Autocad").Application.Name ' пишет: Microsoft Word - не понятно...
    'Set Acd =??? - собственно, основной вопрос

замените на

    Set Acd = Tasks("Autocad")
    Acd.Activate
    Debug.Print Acd.Name ' пишет:AutoCAD Civil 3D 2011 - [Чертеж1.dwg]
    Debug.Print Acd.Application.Name ' пишет: Microsoft Word - не понятно...

[gsg]

принципиально ничего не изменилось:

Set Acd = Tasks("Autocad")
    Acd.Activate
    Debug.Print Acd.Application.Name ' - Microsoft Word

[DiemonStar]

Какие принципиальные изменения Вам нужны?

как присвоить значение переменной приложения автокада, если он уже запущен?

ответ был здесь:

Set Acd = Tasks("Autocad")

Что не устраивает?

[gsg]

Debug.Print Acd.Application.Name  = Microsoft Word

[DiemonStar]

Ну так включите раннее связывание и проштудируйте все свойства классов из библиотеки Автокада. Решение где-то там будет. Но, из разряда предположений, в приложении автокада внутри имеется приложение word для каких-либо неочевидных целей...

[gsg]

вопрос решен.

Set Acd = GetObject(, "autocad.application")