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 のサポートおよびフィードバックを参照してください。
フィードバック
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「https://aka.ms/ContentUserFeedback」を参照してください。
フィードバックの送信と表示