Обращение из-под DLL к Excel

[LevelUP]

Часть программного кода макроса реализую под DLL. Саму DLL пишу под VB6.0.

В процедуре пишу:

Set EX = CreateObject("Excel.Sheet")
Set EX = EX.Application.ActiveWorkbook.ActiveSheet
EX.Range("A1").Value = "test"
Set EX = Nothing

При выполнении не ругается, но в ячейку ничего не заносит при этом, что странно, меняется статус окошка книги с "во весь экран" на "обычный". Подскажите как считать/занести из-под DLL значение в ячейку Excel ?

[Димитрий]

Попробуй так:
Set Ex = CreateObject("Excel.Sheet")
Ex.ActiveSheet.Range("A1").Value = "test"

[LevelUP]

Попробовал, все-равно не работает.
При выполнении оператора лист как бы дергается, даже видно как моргает заносимое значение "test" в ячейку, но буквально на сотую долю секунды, а потом перед глазами все тот же лист..странно, что делать не знаю
ЗЫ: office2000

[uhm]

А у тебя Эксель уже открыт в тот момент, когда ты код запускаешь?

Чтобы не множить сущности и темы: есть подозрение, что ты хочешь внести изменения в уже открытую книгу в уже открытом экселе, а делаешь на самом деле другое - создаешь новый instance экселя с чистой книгой и вносишь изменения в нее...

[LevelUP]

А у тебя Эксель уже открыт в тот момент, когда ты код запускаешь?

Чтобы не множить сущности и темы: есть подозрение, что ты хочешь внести изменения в уже открытую книгу в уже открытом экселе, а делаешь на самом деле другое - создаешь новый instance экселя с чистой книгой и вносишь изменения в нее...

В точку..действительно мне нужно в открытую книгу занести значение. Если книга на момент исполнения не открыта, а я сам ее открываю в коде тогда все работает безупречно (я проверял). Но как же быть с открытой?

[alibek]

С открытой -- GetObject.
И я бы работал не с Excel.Sheet, а с Excel.Application.

[alibek]

А еще лучше, в своей DLL сделай публичный метод TransferAppInstance(App As Excel.Application), а в своей книге вызывай его TransferAppInstance Application.

[LevelUP]

А еще лучше, в своей DLL сделай публичный метод TransferAppInstance(App As Excel.Application), а в своей книге вызывай его TransferAppInstance Application.

Однако изящное решение
Все заработало!
Спасибо!!!