Excel VBA 實(shí)現(xiàn)快遞單查詢(xún)

作者：江蘇大俠-Office交流網(wǎng)

現(xiàn)在是網(wǎng)絡(luò)購(gòu)物時(shí)代，雙11也忙壞了所有快遞員，所以網(wǎng)購(gòu)商品快遞送到哪里了，就不要打電話(huà)緊催快遞小伙們了，讓他們歇歇吧，有快遞單號(hào)自己寫(xiě)個(gè)Excel VBA程序就可自己查了，而且所有中轉(zhuǎn)過(guò)程都一清二楚：

因?yàn)榭爝f單號(hào)查詢(xún)結(jié)果有私人電話(huà)，所以操作動(dòng)畫(huà)就不放上來(lái)了

以下是實(shí)現(xiàn)功能的相關(guān)Excel VBA代碼,因?yàn)椴柯錈o(wú)法上傳附件，這個(gè)作品的對(duì)應(yīng)Excel文件可到群里下載

點(diǎn)擊加入群：Excel交流群(純技術(shù))

相關(guān)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