VBAでformのボタンをクリックしたいのですが上手くいきません。
未読分：3件
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
| Message#3 2014年9月20日(土)21時34分 From: Tissue | 返事 削除 変更 |
| > <INPUT type="image" src="/image/button/img_ok.gif" width="200" height="40" value="実行する" alt="実行する"> > 処理できなかった理由としては、ObjIE.document.images(n) はあくまでimgタグに対しての処理なので、inputタグに対応しなかったということかもしれませんね。 > （確認していませんが・・・） そういうことだったんですね！ たしかにimgタグではないので、IE.srcも認識されなかったんだと思います。 教えていただいたプログラムでうまくいきましたので、ありがとうございました！ |
| Message#2 2014年9月17日(水)00時04分 From: 管理人 | 返事 削除 変更 |
| buttonボタンを処理する方法については、以下にまとめていますのでご確認ください。 【buttonボタンを自動クリック】 http://www.vba-ie.net/form/button.html 今回のHTMLソース見ると「実行する」というキーワードがあるのでこちらを利用してみましょう。 <INPUT type="image" src="/image/button/img_ok.gif" width="200" height="40" value="実行する" alt="実行する"> 実際に処理するとこんな感じです。 'button(ボタン)をクリック For Each objTag In objIE.document.getElementsByTagName("input") If InStr(objTag.outerHTML, "実行する") > 0 Then 'buttonボタンクリック objTag.Click 'IEが完全表示されるまで待機 Call ieCheck(objIE) 'ループ脱出 Exit For End If Next 処理できなかった理由としては、ObjIE.document.images(n) はあくまでimgタグに対しての処理なので、inputタグに対応しなかったということかもしれませんね。 （確認していませんが・・・） これでうまくいくと思うので、VBAで処理してみてください。 |
| Message#1 2014年9月16日(火)10時58分 From: Tissue | 返事 削除 変更 |
| VBAでformのボタンをクリックしたいのですが上手くいきません。 HTMLプログラムは非常にシンプルな構成なのですが、ボタンのタイプがimageで設定されており、submitのクリックではないので、どのようにすればよいか迷っています。 以下はHTML文です。 <INPUT type="image" src="/image/button/img_ok.gif" width="200" height="40" value="実行する" alt="実行する"> 一応試行錯誤して色々やった中で考えていたVBAのソースは以下になります。 For n = 0 To ObjIE.document.images.Length - 1 Set IE= ObjIE.document.images(n) If InStr(IE.src, "img_ok.gif") > 0 Then IE.Click Exit For End If Next これではもちろんクリックされずに、スルーされてしまいます。 どなたか分かる方いましたらご教示お願います。 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
