DDEExecute 方法

通过指定的 DDE（即动态数据交换）通道，向应用程序发送一条或一组命令。

expression   可选。该表达式返回一个 Application 对象。

Channel   Long 类型，必需。由 DDEInitiate 方法返回的通道序号。

Command   String 类型，必需。需要接受命令的应用程序（DDE 服务器）进行识别的一条或一组命令。如果接受命令的应用程序不能执行某条命令，则导致出错。

示例

本示例在 Microsoft Excel 中创建新的工作表。创建新工作表的 XLM 宏指令是 New(1)。

Dim lngChannel As Long

lngChannel = DDEInitiate(App:="Excel", Topic:="System")
DDEExecute Channel:=lngChannel, Command:="[New(1)]"
DDETerminate Channel:=lngChannel

本示例运行 Presonal.xls 中名为“Macro 1”的 Microsoft Excel 宏。

Dim lngChannel As Long

lngChannel = DDEInitiate(App:="Excel", Topic:="System")
DDEExecute Channel:=lngChannel, Command:="[Run(" & Chr(34) & _
    "Personal.xls!Macro1" & Chr(34) & ")]"
DDETerminate Channel:=lngChannel