Application.DDETerminateAll メソッド (Word)
Microsoft Word で開いた DDE (動的データ交換) チャネルをすべて閉じます。
構文
expression. DDETerminateAll
expressionApplicationオブジェクトを表す変数 。 オプション。
注釈
ただし、クライアント アプリケーションから Word に対して開いたチャネルは閉じられません。 このメソッドの操作は、開いているチャネルそれぞれに対して DDETerminate メソッドを使用する操作と同じです。
DDE チャネルを開くマクロを中断した場合、チャネルが開いたままになる可能性があります。 マクロの実行を終了しても、開いたチャネルは自動的に閉じられることがないため、無駄なシステム リソースを使い続ける結果になります。 このため、DDE チャネルを開くマクロをデバッグするときは、このメソッドを使用することをお勧めします。
例
この例は、book1.xls ブックの Excel ブックを開きます、R2C3 のセルにテキストを挿入化しがブックを保存し、すべての DDE チャネルを終了します。
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")
DDEPoke Channel:=lngChannel, Item:="R2C3", Data:="Hello World"
DDEExecute Channel:=lngChannel, Command:="[Save]"
DDETerminateAll
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。