EXCEL VBAによる、IE制御に関する質問

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年6月12日(金)21時45分
From: コナミ

返事削除変更

提示されたコードだと、クリックはされません。この場合のhref属性値はあくまでも「#」です。ご質問のコードでは、onClickの値をhref属性値として判定してしまっています。

ソースコードがこれで合っているのであれば、JavaScriptをそのまま実行してしまっても構いません。

ie.document.Script.setTimeout "javascript:onSearch();", 1000

もしくは、

ie.Navigate "javascipt:onSearch();"

で、検索が実行されると思います。

あくまでもクリックにこだわるのであれば、途中のIf文を、

If (tagA.getAttribute("onClick")="JavaScript:onSearch();") Then

とします。

Message#1 2015年6月12日(金)14時05分
From: ミズホ

返事削除変更

EXCEL VBAによる、IE制御に関する質問です。
1.ソースコードから<input name="gyousya_gijutu()"> value=""に数字を入れます。
通常であれば2.subプロシージャのコードを挿入する様になると思いますが、今回は「No000:＊＊＊＊株式会社」か否か判定してから<input name="gyousya_gijutu()"> value=""に数字を入れたいのですが、どういったコードが考えられますか？予め変数に「No000:＊＊＊＊株式会社」が格納されていて、それと1.ソースコードの「No000:＊＊＊＊株式会社」が一致したら、その<input name="gyousya_gijutu()"> value=""に数字を入れる様にしたいのです。

1.ソースコード
<input type="hidden" name="gyousya_line_no" value="1">
<input type="hidden" name="cancel" size="15" value="" class="text01">
<tr CLASS="t06b12">
<td width="" class"b12" align="left">No000:＊＊＊＊株式会社</td>
<input name="gyousya_gijutu()"> type="text" size"14" value="" maxlength="11" class="text01_r"></td>

2.subプロシージャ
Set gyousya_gijutu = ie.document.getElementById("gyousya_gijutu()")
gyousya_gijutu.Value = "＊＊＊＊"