[[20130605094831]]　『VBAでIE操作』（あや）　ページの最後に飛ぶ

『VBAでIE操作』（あや）

 Excel2003 XP IE9

 VBAでIE操作をしています。

 何度か質問をさせて頂いております。
 javascriptを使って作られた　IE9で動いているシステムがあり、
 繰り返し作業はVBAで自動化させようとしています。

 IE画面にチェックボックスがあり、
 チェックボックスをチェック後
 印刷ボタンを押すように作っています

 For Each Obj In ObjIE.Document.getElementsByTagName("input")
　　If Obj.Name = "CheckBox" Then
      Obj.ClicK
      Exit For
    End If
 Next

 これでうまくチェックが出来る画面と、チェックが出来ない画面があります。

 チェックが出来ない画面が開いてくるまでの動きなのですが

 チェックが出来ない画面が開くひとつ前の画面で
 表示ボタンを押すと
 チェックボックスを選択する画面がポップアップとして出ています。

 そのポップアップ画面は、右クリックがきかない
 右上には？と×ボタンのみ（最小化と全画面表示ボタンではない）
 タスクバーで右クリックをすると、移動と閉じるのみ

 見た感じから予想しているのは
 メッセージボックスか、
 ユーザーフォームのようなものを使っている画面なのかな？と思っています。

 右クリックでソースが見れないため、チェックボックスの名前が確認できないので
 どうしたらよいものか止まってしまっています。

 ちなみに
 ひとつ前の画面で、表示ボタンを押すのもVBAを使っていて

 For Each Obj In ObjIE.Document.forms(0)
　 If Obj.Name = "hyoujiButton" Then
     Obj.Click　　　☆
     Exit For
   End If
 Next

 ☆のObj.Clickで ポップアップ画面が出ると、
 ポップアップ画面にフォーカスがいって
 VBAは進めない状態です。

 この画面が何で出来ているのか…
 どのようにすればチェックボックスにチェックと、
 印刷ボタンが押せるようになるのかなど…
 教えていただければ助かります。

ステップ実行するとどうなりますか？

ステップ実行でも同じ現象ならば、Obj.Nameが違っている等、チェックの仕方が問題。
ステップ実行なら動作できるならば、HTMLの完了が待てない問題。

いずれにしても、HTML内容次第で対応が変わるので、生のHTMLを見られる貴方しか
対応できないものです。
(???)

 ???さんありがとうございます

 質問の書き方が悪かったです…

 ステップ実行でも同じでした。

 For Each Obj In ObjIE.Document.forms(0)
 　 If Obj.Name = "hyoujiButton" Then
      Obj.Click　　　☆
      Exit For
    End If
  Next

 ☆ Obj.Clickに入ると、ポップアップ画面にフォーカスがいって
 VBAは進めないです。
 進めないので、出てきたポップアップ画面のチェックボックスに
 チェックを付ける記述まで進めずにいます。

 過去に質問させてもらった
 [[20130521114840]]　によりおかげさまで
 メッセージボックスの場合では対処できるようになったのですが

 今回は、ポップアップ画面がメッセージボックスではない感じもあって
 何か詳しく判断できない…

 整理してまた書き込みに来ます。

 (あや）

コメント返信：