作者：江苏大侠-Office中国
现在是网络购物时代，双11也忙坏了所有快递员，所以网购商品快递送到哪里了，就不要打电话紧催快递小伙们了，让他们歇歇吧，有快递单号自己写个Excel VBA程序就可自己查了，而且所有中转过程都一清二楚：
因为快递单号查询结果有私人电话，所以操作动画就不放上来了
以下是实现功能的相关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, "</td>")(0)
ar(k, 1) = Split(Split(i, "</td>")(2), """>")(1)
k = k + 1
Next i
[a3].Resize(21, 2) = ar
ie.Quit
End Sub
