Метод Application.DDERequest (Word)

Статья
04/07/2023

Использует открытый канал динамического обмена данными (DDE) для запроса информации из принимающего приложения и возвращает сведения в виде строки.

Синтаксис

выражение. DDERequest( _Channel_ , _Item_ )

выражение: переменная, представляющая объект Application. Необязательный параметр.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Канал	Обязательный	Long	Номер канала, возвращаемый методом DDEInitiate .
Элемент	Обязательный	String	Запрашиваемый элемент.

Замечания

При запросе сведений из раздела в серверном приложении необходимо указать в этом разделе элемент, содержимое которого вы запрашиваете. Например, в Microsoft Office Excel ячейки являются допустимыми элементами, и вы ссылаетесь на них с помощью формата "R1C1" или именованных ссылок.

Microsoft Excel и другие приложения, поддерживающие DDE, распознают раздел с именем "Система". Три стандартных элемента в разделе Система описаны в следующей таблице. Обратите внимание, что список других элементов в разделе System можно получить с помощью элемента SysItems.

Элемент в системном разделе	Effect
SysItems	Возвращает список всех элементов в системном разделе.
Темы	Возвращает список всех доступных разделов.
Форматы	Возвращает список всех форматов буфера обмена, поддерживаемых Word.

Пример

В этом примере открывается книга Excel Book1.xls и извлекается содержимое ячейки R1C1.

Dim lngChannel As Long 
 
lngChannel = DDEInitiate(App:="Excel", Topic:="System") 
DDEExecute Channel:=lngChannel, Command:="[OPEN(" & Chr(34) _ 
 & "C:\Documents\Book1.xls" & Chr(34) & ")]" 
DDETerminate Channel:=lngChannel 
lngChannel = DDEInitiate(App:="Excel", Topic:="Book1.xls") 
MsgBox DDERequest(Channel:=lngChannel, Item:="R1C1") 
DDETerminateAll

В этом примере открывается канал для системного раздела в Excel, а затем используется элемент Темы для возврата списка доступных тем. В этом примере после выбора вставляется список разделов, включающий все открытые книги.

Dim lngChannel As Long 
Dim strTopicList As String 
 
lngChannel = DDEInitiate(App:="Excel", Topic:="System") 
strTopicList = DDERequest(Channel:=lngChannel, Item:="Topics") 
Selection.InsertAfter strTopicList 
DDETerminate Channel:=lngChannel

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через