FAQ
FAMOS
FAMOS全般top
└DDE通信
ID.g036
Q. ExcelとのDDE通信の例
A.
;値を取得する
a = DDEInq( "EXCEL", "Sheet1", "R3C2", 1)
;ブック名を指定して値を取得する
a = DDEInq( "EXCEL", "[Book2]Sheet1", "R3C2", 1)
;新規ブック作成
Err = DDESend( "EXCEL", "SYSTEM", "[NEW(1)]")
;マクロを実行する
Err = DDESend( "EXCEL", "SYSTEM", "[RUN("+ SvtoChar(34) + "book1.xls!macro1" + SvtoChar(34) + ")]")
;指定したセルを選択状態にする
Err = DDESend( "EXCEL", "SYSTEM", "[SELECT("+ SvtoChar(34) + "R1C1" + SvtoChar(34) + ")]")
;セルを挿入する
Err = DDESend( "EXCEL", "SYSTEM", "[INSERT(1)]")
;Excel上で指定したキーの並びが押されたかのような動作をさせる
Err = DDESend( "EXCEL", "SYSTEM", "1243{ENTER}")
;保存
Err = DDESend( "EXCEL", "SYSTEM", "[Save]")
;印刷
Err = DDESend( "EXCEL", "SYSTEM", "[Print]")
;名前を付けて保存する
Err = DDESend( "EXCEL", "SYSTEM", "[Save.As(" + SvToChar(34) + "d:\tmp\bbb.xls" + SvToChar(34) + ")]")
;ファイルを開く
Err = DDESend( "EXCEL", "SYSTEM", "[Open(" + SvToChar(34) + "d:\tmp\bbb.xls" + SvToChar(34) + ")]")
;ファイルを閉じる
Err = DDESend( "EXCEL", "SYSTEM", "[Close]")
;Excelを閉じる
Err = DDESend( "EXCEL", "SYSTEM", "[Quit]")
;切り取り
Err = DDESend( "EXCEL", "SYSTEM", "[cut("+ SvtoChar(34) + "R3C2" + SvtoChar(34) + ")]")
;貼り付け
Err = DDESend( "EXCEL", "SYSTEM", "[Paste("+ SvtoChar(34) + "R5C3" + SvtoChar(34) + ")]")