| |
テストデータの設定画面
１．表示されたHTMLにデータ設定後
２．Submitボタン
確認画面
３．表示された設定値の確認画面で（何もしないで）Submitボタン
４．3.SubmitボタンクリックでHTTP POSTでアプリケーションを呼び出してリダイレクト先URLを取得し 取得したURLにブラウザ経由でリダイレクト
５．リダイレクト画面にパスワードを設定
６．Submitボタンをクリック
上記のような流れでVBAを作成したいのですが、５．以降の処理の仕方がわかりません。
（４．までは自力で作成できていて、リダイレクト画面を表示するところまでできています。）
VBA初心者です。
どなたかわかりやすく教えていただけると助かります。
書いているコードは以下のようなコードです。
Sub Test()
Application.ScreenUpdating = False
'IEの起動
Dim objIE As Object
Set objIE = New InternetExplorerMedium
objIE.Visible = True
objIE.navigate "127.O.O.1:8080/Hoge/Entry" ' このURLを任意に変更
' ページの表示完了待ち｡
While objIE.readyState <> 4 Or objIE.Busy = True
DoEvents
Wend
On Error Resume Next '値がないとエラーが出るので、エラー回避用
Dim A As Object
For Each A In objIE.document.getElementsByTagName("INPUT") '1.FOR EACH でINPUTをすべて抜き出す。
If A.Name = "CardNumber" Then A.Value = Range("A1") '2.IF分で入力したい要素を見つけて3.valueで代入。
Next
On Error GoTo 0
objIE.document.forms(0).submit
Set htmlDoc = Nothing 'HTMLをいったん破棄
' ページの表示完了待ち｡
While objIE.readyState <> 4 Or objIE.Busy = True
DoEvents
Wend
Set htmlDoc = objIE.document 'submit後のページのHTMLを読み込む
objIE.document.forms(0).submit
'*****
'以降リダイレクトされた画面でどのように処理するれば良いかわかりません。
'やりたい事は、ここでパスワードを設定してSubmitをクリックすることです。
'*****
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
