エクセル　マクロ　submitについて

解決済

質問者：whiteprelude
質問日時：2014/05/02 02:29
回答数：1件

マクロ超初心者です・・・

エクセルマクロでIEを操作したいのです。

****エクセルのセルA1が「OK」の場合、以下の処理を実行****

処理1．セルB1に数値として表示済みのURLを取得してIEを開く。
処理2．開いたIEのtextareaにセルC1の文字を入力。
処理3．submitボタンを押して送信。

****HTMLは以下の通り（一部省略）****

.1..<form name="directForm" enctype="multipart/form-data" method="post" action="/thr_rp1/">
.2....<input type="hidden" value="120" name="bid">
.3....<input type="hidden" value="3217234" name="tid">
.4....<input type="hidden" value="103" name="ctgid">
.5....<input type="hidden" value="8" name="acode">
.6....<input type="hidden" value="1" name="tp">
.7....<input type="hidden" value="2" name="prof_flg">
.8......<ul class="display inqForm rCate">
.9........<li>
10..........<input id="name" type="text" tabindex="1" maxlength="16" onclick="fun_focus(this)" size="16" value="" name="name">
11........</li>
12........<li>
13..........<input id="trip" type="text" tabindex="2" maxlength="16" onclick="fun_focus(this)" size="16" value="" name="trip_pass">
14........</li>
15........<li>
16..........<input id="email" type="email" tabindex="3" maxlength="50" onclick="fun_focus(this)" size="30" value="" name="mailaddr">
17........</li>
18........<li>
19..........<textarea class="required" required="" tabindex="-1" onkeyup="showCharCnt('resize-demo', 'idCharCnt')" onclick="fun_focus(this)"></textarea>
20..........<textarea id="resize-demo" class="required" required="" tabindex="4" onkeyup="showCharCnt('resize-demo', 'idCharCnt')" onclick="fun_focus(this)" name="body"></textarea>
21........</li>
22........<li>
23..........<input id="delpaass" type="password" tabindex="5" value="" name="del_pass">
24........</li>
25........<li class="noborder">
26..........<div class="center">
27............<input type="submit" tabindex="6" value="送信する">
28..........</div>
29........</li>
30....</ul>
31..</form>

****//HTML（終）****

上記のHTMLにもありますように、20行目のtextarea「name="body"」に処理2を実行後、
27行目の「value="送信する"」を押すというマクロを作成したいのです。

いろいろなサイトを参考にさせていただいて、切り貼りをした結果、
次のようなマクロを書きました。

****マクロ****

Sub test()
If Range("A1").Value = "OK" Then
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate Range("B1").Value '画面へ移動する
waitNavigation IE

IE.document.All("body").Value = Range("C1").Value
ObjIE.document.Forms(0).Submit
End If
End Sub

'画面移動の完了待ち
Sub waitNavigation(IE As Object)
Do While IE.Busy Or IE.ReadyState < 4
DoEvents
Loop
End Sub

****//マクロ（終）****

====私にとっての難題 (+д+;lll )====

処理1と処理2はクリアできたのですが、処理3がどうしてもうまくできません・・・

27行目のsubmitにはIDやnameもなく、そういった場合は
ObjIE.document.Forms(0).Submit
と記述すればいいといろんなサイトに書いてありましたが、
マクロを実行するとエラー（91、424など）が出るばかりで、処理を完了できません。

Ifによって処理3までを実行して、その後はIfに関係なく次のマクロを記述したいのです。

上記のマクロは、詳しい方がご覧になれば「デタラメな書き方」と採点されると思います。

どなたかご教授頂けましたら幸いです。

よろしくお願いいたします。