Excel VBA 實現快遞單查詢

2017-07-05 12:51:00
zstmtony
原創
1775

Excel VBA 實現快遞單查詢

作者:江蘇大俠-Office交流網


現在是網絡購物時代,雙11也忙壞瞭所有快遞員,所以網購商品快遞送到哪裡瞭,就不要打電話緊催快遞小夥們瞭,讓他們歇歇吧,有快遞單號自己寫箇Excel VBA程序就可自己查瞭,而且所有中轉過程都一清二楚:


Excel技巧


因爲快遞單號查詢結果有私人電話,所以操作動畵就不放上來瞭


以下是實現功能的相關Excel VBA代碼,因爲部落無法上傳附件,這箇作品的對應Excel文件可到群裡下載

點擊加入群:Excel交流群(純技術)


相關Excel VBA代碼:


Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$B$1" Then Exit Sub

    Dim ar(20, 1)

    Set ie = CreateObject("InternetExplorer.Application")

    ie.navigate "http: // www.ickd.cn/"

    Do While ie.readystate <> 4

    Loop

    ie.document.getElementById("mailNo").Value = Target

    ie.document.getElementById("submitButton").Click

    t1 = Timer

    Do

        DoEvents

    Loop While Timer - t1 < 1

    txt = ie.document.body.innerHTML

    Set regEx = CreateObject("VBSCRIPT.REGEXP")

    regEx.Global = True

    regEx.Pattern = "\d{4}\-\d{2}\-\d{2}.*?tr"

    Set c = regEx.Execute(txt)

    For Each i In c

        ar(k, 0) = Split(i, "")(0)

        ar(k, 1) = Split(Split(i, "")(2), """>")(1)

        k = k + 1

    Next i

    [a3].Resize(21, 2) = ar

    ie.Quit

End Sub

分享