ExcelVBAで佐川急便、ヤマト運輸の問い合わせ

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