связь с удаленным Excel средствами NetDDE

[san*]

Win2000 Pro, Office XP Sp1
беру DDEShare.exe , выставляю на Comp2
Name My$
App Topic
Old Style Excel [Книга1.XLS]Лист1
NewStyle Excel.Sheet.8 Книга1.XLS
StaticStyle Excel Книга1.XLS

Пытаюсь с ним соединится с Comp1 прямо в Екселе в ячейке
='\\comp2\NDDE$'|'My$.OLE'!'Лист1!R1C1' - чего то не катит
Пишу в VBA в Ворд на машине Comp1
ch=Application.DDEInitiate ("\\comp2\NDDE$","My$.OLE")
Msgbox Application.DDERequest(ch,"Лист1!R1C1")
Результат - отрицательный. Может кто пробовал и получилось
Помогите плиз! Все делаю как в MSDN!

[san*]

Никаких гипотез?

[Igor_123]

Извини не могу сейчас проверить, а ты не пробовал записать макросом действия по вставке ссылки на другую книгу?
Но по-моему там нет явного упоминания о NetDDE!
К сожалению на сеть попаду только в середине следующей недели. так что помочь раньше не смогу!
Удачи

[san*]

Не понял Объясни что ты имел в виду и как это сделать

[Igor_123]

Насколько я понял, Ты пытаешься сделать ссылку на другую книгу.
Прямо в ячейке пиши:
='\\comp2\c$\[test.xls]Лист1'!$A$1

тогда при изменении значения в '\\arm99\c$\[test.xls]Лист1'!$A$1 ,можно обновлять значение ссылки.

Или я понял всё с точностью до наоборот?

[san*]

А ты это проверял? Оно наверное работает не через NetDDE, а мне нужно именно через NetDDE, потому что такой обмен на самом деле хочу сделать из VB с другими программами, а Ексель всего лишь проверка функционирования NetDDE. Проблема в том, что в MSDN написано именно так, как я писал, а у меня чегото нифига не выходит.

[Igor_123]

='\\comp\NDDE$'|'My$.ole'!'R1C1'

беру DDEShare.exe , выставляю на Comp
Имя My$
App Topic
Old Style Excel [test1.XLS]Лист1
NewStyle Excel.Sheet.8 test1.XLS
StaticStyle Excel test1.XLS

Разрешить запуск приложений - да
Доступ ко всем объектам - да
Разрешения - Всем - полный доступ

В общих ресурсах выделяю - My$ - Доверенный ресурс
Разрешить запуск приложений - да
Создание сеансов - да
Кнопки - "Задать", "Ок"


На диске - папку, в неё файл test1.xls и самой папке сетевой доступ под именем "My$" - , безопасность - всем полный.
В test1.xls в А1 - любое значение.

В тестовую книгу в любую ячейку:
='\\comp\NDDE$'|'My$.ole'!'R1C1'

А это из VBA Excel:

Код: Выделить всё

Sub asdewq1()
Dim ch As Long
Dim s As Variant
ch = Application.DDEInitiate("\\comp\NDDE$", "My$")
s = Application.DDERequest(ch, "R1C1")
MsgBox CStr(s(1))
End Sub


Удачи очень интересно и много непонятного!!!