EXCELのセルA1からA10に入っている、佐川急便、ヤマト運輸の問い合わせ番号を、荷物問い合わせの10箇所に入れて、問い合わせを行うExcelVBAのサンプル。
佐川
Sub sagawa_req() Dim objIE As Object 'IEオブジェクト Set objIE = CreateObject("InternetExplorer.application") 'IEオブジェクトはデフォルト不可視なので可視化する objIE.Visible = True objIE.Navigate "http://k2k.sagawa-exp.co.jp/p/sagawa/web/okurijoinput.jsp" '開ききるまで待ちます While objIE.ReadyState <> 4 While objIE.Busy = True DoEvents Wend Wend 'A1〜A10のセルから問い合わせ番号を取得してsagawaの1〜10に入れる For i = 1 To 10 objIE.Document.Forms(0).Item("main:no" & i).Value = Range("A" & i) Next objIE.Document.Forms(0).Item("main:toiStart").Click End Sub
Sub kuro_open() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://toi.kuronekoyamato.co.jp/cgi-bin/tneko" While objIE.ReadyState <> 4 While objIE.Busy = True DoEvents Wend Wend For i = 1 To 10 objIE.Document.Forms(0).Item("number" & Right("0" & i, 2)).Value = Range("A" & i).Value Next objIE.Document.Forms(0).Item("sch").Click End Sub