エクセルVBAでWEBの送信ボタンクリック

質問

エクセル2000です。
VBAでNavigateを使いWeb画面（イントラネット）を開き、エクセルのデータを入力し、イントラの送信ボタンを押して画面を先に進めるコードがあります。
余計な部分を省略して簡略化してますがこのような感じです。

Sub TEST01()
　　Dim tmp As String
　　On Error Resume Next
　　tmp = objIE.Name
　　If Err.Number <> 0 Then　'エラーならIEが起動していないので、起動する
　　　　Set objIE = CreateObject("InternetExplorer.Application")
　　End If
　　On Error GoTo 0
　　myData = Sheet1.Range("A1").Text
　　With objIE
　　　　.navigate "http://abcd.co.jp/abc/****/***/*****************/***""
　　　　.Visible = True
　　　　Do While .busy
　　　　　　DoEvents
　　　　Loop
　　　　.document.all.Item("ClientNo").Value = myData 'テキストボックスへ入力：Name属性で指定
　　　　Do While .busy ' = True 'オートコンプリートなどの機能が働く場合があるので、念のため待機
　　　　　　DoEvents
　　　　Loop
　　　　.document.forms(0).submit '送信ボタンクリック
　　End With
End Sub

先日までは、順調に動いていました。
ところがイントラネットの仕様が若干かわったようで、エクセルのデータを入力するところまでは動きますが、そこから先に進みません。
手作業でエンターキーを押すと進むので、
.document.forms(0).submit '送信ボタンクリック　の部分を
SendKeys "{ENTER}"
とごまかして、何とか進むことはできましたが、Sendkeyではなく本来の修正方法をご教示いただきたいのです。
HTMLはほとんどわかりませんが、ソースを表示させてみると以下の部分がそれらしく思われます。（送信ボタンにマウスを持ってくるとボタンの色が変わります）

</strong></td></tr><tr><td width="38%"><input type="hidden" name="enableXuras" value="1"></td><td onclick="xcs0010SearchClick();" onmouseout="BigOff(this);" onmouseover="BigOn(this);" class="Button Command" width="10%">送信</td><td width="4%"></td><td onclick="ClearForm(document.frm);" onmouseout="BigOff(this);" onmouseover="BigOn(this);" class="Button Command" width="10%">クリア</td><td width="38%"></td></tr></table><br><div>

なにとぞ、よろしくお願いいたします。
　(o。_。)oペコッ

回答No.2

DOUGLAS_ · ベストアンサー

#1 です。

＞本来の修正方法をご教示いただきたいのです。
　何を以って「本来」と仰るのか判然とはしませんが、「ごまかし」ではなくて「理ずくめ」というような意味合いでしょうか。。。

＞イントラネットの仕様が若干かわったよう

１）VBE(Visual Basic Editor) の コードウィンドウ を表示しておきます。
２）
＞.document.forms(0).submit '送信ボタンクリック
の行を選択し、[F9] キー を押下して ブレークポイント を置きます。
３）[F5] キー で、マクロ を走らせます。
４）ストップ した時点で、「objIE.document.forms(0)」を ウォッチ式 に追加します。
５）ウォッチウィンドウ の「値」をご覧になってみてください。
６）ここの値が「Nothing」になっていましたら、かなりの仕様変更でしょうか。

　「forms(0)」で反応していたということは、html コード の中に
<form> ～～～ </form>
というような部分があったかと存じますが、この仕様変更により、「フォーム」ではなくて「JavaScript」によって「送信ボタンクリック」するようになったと思われます。

　「送信ボタン」に関する html コード は、
<td onclick="xcs0010SearchClick();" onmouseout="BigOff(this);" onmouseover="BigOn(this);" class="Button Command" width="10%">送信</td>
の部分ですが、日本語に直すと、
<セル開始（クリック したら [xcs0010SearchClick] 関数、マウス が離れるとこの セル に [BigOff] 関数適用、マウス が乗るとこの セル に [BigOn] 関数適用、この セル は [Button Command] クラス、セル幅 = 10%）>送信<セル終了>
みたいなことになります。

　ここで、目的の動作になるのは「クリック したら [xcs0010SearchClick] 関数」の部分ですが、html コード の中に
<script type="text/javascript">
function xcs0010SearchClick() {
・・・・・・・・・・・・・・・・
}
</script>
みたいなところがないでしょうか。
　この「・・・・・・・・・・・・・・・・」の部分が「送信」という セル を クリック したときに実行される スクリプト、つまり、元々の「フォーム の送信」に当たる動作になります。

function xcs0010SearchClick() {
というようなことでしたら、前回答に書きましたように
.navigate "javascript:xcs0010SearchClick();"
でいけるかと存じますが、
function xcs0010SearchClick(hoge) {
というように、[xcs0010SearchClick] 関数 に引数が指定されているような場合には、その引数（例の場合は「hoge」）に対する値を代入して
.navigate "javascript:xcs0010SearchClick(値);"
とする必要があります。

　例えば、Yahoo! Japan の ホームページ には、[err] 関数というのが組み込まれていますが、
http://www.yahoo.co.jp/
の ページ を表示しておいて、アドレスバー に
javascript:err(e);
と入力して [Enter] すると Yahoo! Japan の ページ が消え、IE の ウィンドウ に「true」と表示されます。

　アドレスバー に「javascript:err(e);」と入力して [Enter] を押下したのですから、「javascript:err(e);」という アドレス（ＵＲＬ）の ページ を開いたのと同じことになろうかと存じますので、
.navigate "javascript:err(e);"
ということになります。

　試しに、下記を実行してみてください。

With objIE
　.Visible = True
　.navigate "http://www.yahoo.co.jp/"
　While .Busy Or .ReadyState <> 4: DoEvents: Wend
　.navigate "javascript:err(e);"
End With

お礼

ありがとうございます。
なかなか試す時間がとれずお礼が遅くなってしまいました。

おかげさまで
＞.document.forms(0).submit '送信ボタンクリック　の部分を　.navigate "javascript:xcs0010SearchClick();"　に変えただけでちゃんと動いてくれました！

わたしはHTMLだってほとんどわかっていないのにjavascriptですか・・・。
<script type="text/javascript">　というのは見当たりませんでしたが、script language="javascript" という記述はところどころにありました。

<form> ～～～ </form>　らしきものは、最後のほうに、</form><form method="POST" name="req"></form>　というのを見つけました。

お教えいただいた、objIE.document.forms(0)」を ウォッチ式 に追加の件ですが、やってみたところ＜ウォッチ式が不正です＞となってしまいました。

でも、詳しくほんとに有難うございました。

回答No.1

DOUGLAS_

イントラネット では動くかどうか分りませんが。。。

＞.document.forms(0).submit '送信ボタンクリック　の部分を

.navigate "javascript:xcs0010SearchClick();"

としたらどうでしょうか？

お礼

大変ありがとうございました。
ばっちりです！！