安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Excel VBA 实现快递单查询

2017-07-05 12:51:00
zstmtony
原创
1447

Excel VBA 实现快递单查询

作者:江苏大侠-Office交流网


现在是网络购物时代,双11也忙坏了所有快递员,所以网购商品快递送到哪里了,就不要打电话紧催快递小伙们了,让他们歇歇吧,有快递单号自己写个Excel VBA程序就可自己查了,而且所有中转过程?#23478;?#28165;二楚:


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

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.16
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
刀塔自走棋官网 白雪公主之矮人力量 拳皇命运琼芯片 西汉姆联的球迷文化 博彩网站 时时彩开奖走势图 魔兽世界点卡 湖南幸运赛车开奖与奖金 部落冲突皇室战争 卡昂沙发网站