submitが動作しない？

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

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

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

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

Message#5 2015年7月30日(木)17時40分
From: まこっちゃん

返事削除変更

VBAマスターのメッセージ(#4)への返事

> IEのバージョンによっては、動作しないことがあるので、他のPCで試すか、バージョンを落としてやってみたらどうですか？

試しに他のPCでやってみたいと思います。

> ちなみにtagClickではボタンクリックまでたどりつけていますか？
> クリック処理までいっていて何も動作しないのであれば、環境によるところが大きいかもしれません。

はい、tagClickでもデバックモードだと正常に動きます。

Message#4 2015年7月30日(木)14時54分
From: VBAマスター

返事削除変更

> objIE.document.forms(0).submit (0)にブレークポイントを設定して
> 実行するとできるのですが･･･。
> （デバックモードではsubmitボタンは動作するみたいです。）

IEのバージョンによっては、動作しないことがあるので、他のPCで試すか、バージョンを落としてやってみたらどうですか？

ちなみにtagClickではボタンクリックまでたどりつけていますか？
クリック処理までいっていて何も動作しないのであれば、環境によるところが大きいかもしれません。

Message#3 2015年7月30日(木)11時18分
From: まこっちゃん

返事削除変更

VBAマスターのメッセージ(#2)への返事

ご返事ありがとうございます。

> call tagClick(objIE,"input","submit")

でやってみたましたが動作しませんでした。
もちろんtagClickの標準モジュールにtagClickを追加した上でやってみました。

objIE.document.forms(0).submit (0)にブレークポイントを設定して
実行するとできるのですが･･･。
（デバックモードではsubmitボタンは動作するみたいです。）

う~ん。お助けください(泣)。

Message#2 2015年7月29日(水)20時41分
From: VBAマスター

返事削除変更

> 2の所を以下の記述にしても動作しません。
> objIE.document.forms(0).submit

その実行ボタンはsubmitボタンですか？buttonとかじゃなくて。

submit処理がうまくいかないのであれば、クリック処理で対応したらはやいかもしれません。

call tagClick(objIE,"input","submit")

Message#1 2015年7月29日(水)18時01分
From: まこっちゃん

返事削除変更

VBAの超初心者です

指定したフォームを開き、セレクトボックスで任意の番号を選択し保存するという作業をしています

svr_name = サーバー名
tenpoid = 店舗id
pass =パスワード

*************************
Dataに格納する処理
cnt=DATAに格納した件数
*************************

For k = 0 To (cnt - 1) Step 1
If Data(k, 1) <> 0 Then
Dim objIE As InternetExplorer
html_file = "http://" & svr_name & ".shop_add.php?no=" & tenpoid & "&Pass=" & pass & "&no=" & Data(k, 2)
Call ieView(objIE, html_file)
objIE.document.forms(0).all("rank")(Data(k, 1)).Selected = True /*1*/
objIE.document.forms(0).submit (0) /*2*/
Call ieCheck(objIE)
objIE.Quit
Set objIE = Nothing
End If
Next

1--->の処理は正常にできます。(任意で指定したのが正常にセレクトされます)
2--->の処理は動きません。

2の所を以下の記述にしても動作しません。
objIE.document.forms(0).submit

ちなみにobjIE.Quitの処理の手前で実行をとめて、開いた画面のボタンをクリックしても動作しない状況です。

補足
Data(k, 2)には商品番号格納されています。
Data(k, 1)には並び順が格納されています

エクセルのバージョンはoffice 2003を使用しています
ExcelのVBAで記述しております。

3日程悩みQA掲示板があるのき気づき質問させて頂きました。

どうか、どうかお願い致します。