|
できることならSendKeyを使うべきでないことは知っておりますが目的を達成する
上だと思うので質問させてください。
目的はエクセルシート上に用意したデータをメタフレーム経由で開いているアプ
リケーションに送信することです。
メタフレーム上で動いているアプリケーションは更に子ウィンドウを持っている
います。
VBAとしては次のとおりトライしました。
パターン1抜粋
ThisWorkbook.Activate
Wk_Sheet.Cells(RowPos, 1).Paste
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^v", True
パターン2抜粋
ThisWorkbook.Activate
Send_Data = Wk_Sheet.Cells(RowPos, 1)
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys Send_Data, True
このVBAを実行するとメタフレーム上で動いているアプリケーションの子ウィンド
ウがいきなり閉じてしまいます。
SendKeysで{TAB}を送っても同様な挙動を示します。
この環境ではSendKeysを使えないのか、もしくはVBA上で間違っているのかアドバ
イスをお願いします。
|
|