Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12397 / 13644 ツリー ←次へ | 前へ→

【10705】画像の取得 はなはな 04/2/9(月) 15:21 質問
【10709】Re:画像の取得 IROC 04/2/9(月) 18:16 質問
【10715】Re:画像の取得 はなはな 04/2/10(火) 8:27 回答
【10717】Re:画像の取得 はなはな 04/2/10(火) 9:33 発言

【10705】画像の取得
質問  はなはな  - 04/2/9(月) 15:21 -

引用なし
パスワード
   ちょいと質問なのですが、アクティブウィンドウの別アプリの画面を
保存しておいた画像で判定するというのは可能でしょうか?

今、別のアプリにエクセルに入力した数字を入力するマクロを作っているのですが、
入力に誤りがあった際のエラー画面が出たときに、マクロを中断するようにしたいのです。

知ってる方がいらっしゃいましたら、ご教授のほうお願いします。

【10709】Re:画像の取得
質問  IROC  - 04/2/9(月) 18:16 -

引用なし
パスワード
   >アクティブウィンドウの別アプリの画面を
>保存しておいた画像で判定するというのは可能でしょうか?
別アプリというのは、どのようなソフトでしょうか?

>今、別のアプリにエクセルに入力した数字を入力するマクロを作っているのですが、
>入力に誤りがあった際のエラー画面が出たときに、
>マクロを中断するようにしたいのです。

「別のアプリにエクセルに入力した数字を入力するマクロ」
SendKeysでキー操作を送っているようなマクロでしょうか?


申し訳ないのですが、
いまいち、どのような感じなのか分かりにくいのですが・・・

【10715】Re:画像の取得
回答  はなはな  - 04/2/10(火) 8:27 -

引用なし
パスワード
   別アプリというのは、まぁ簡単に言えば、企業間伝送で使うDBかな?

で、実際に作ってるマクロは、Sendkeysを使ってアプリにキーを渡すようにしています。

sub test()
SendKey Range("A1"),True
wait
Msgbox("OK?")
end sub

簡単にかくとこんな感じです。

今やりたいと思っているのは、例えば、現在のアプリのSSを撮って、元々保存しておいた
エラー画面の一部と、現在のSSの一部を比較して、もしエラー画面ならマクロを中断する。
と言った感じのものを作りたいと思っています。

【10717】Re:画像の取得
発言  はなはな  - 04/2/10(火) 9:33 -

引用なし
パスワード
   上のコードではちょっとわかりにくいかもしれないので、
もうちょっと詳しいコードを書いておきます。

Sub test()
i=2
Do Until Cells(i,1)=""
 SendKeys Cells(i,1),True
 wait
 SendKeys Cells(i,2),True
 wait
 ////ここに画像判定処理////
 エラーの場合は、Do-Loopから抜ける。
 if 画像判定 then
  Exit Do
 end if
 i=i+1
Loop
End Sub

簡単に書くとこんな感じです。
よろしくお願いします。

12397 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free