drexpxp 450b快递单打印怎么查？

来源：蜘蛛抓取(WebSpider) 时间：2016-12-08 00:49 标签： drexp快递
excel快递单号查询工具以及源码 - Nas_jin - 博客园
随笔 - 14, 文章 - 0, 评论 - 1, 引用 - 0
Function kdcx(kd, orderid)
Dim Err, url, kdtime, link, Errcode, Status
Select Case kd
'此处支持的快递公司很多的
Case "申通"
kd = "shentong"
Case "圆通"
kd = "yuantong"
Case "优速"
kd = "yousu"
Case "龙邦"
kd = "longbang"
Case "城市"
MsgBox "暂时不支持此快递，可以联系管理员添加！"
kdcx = "暂时不支持此快递"
Exit Function
End Select
Set http = CreateObject("Microsoft.XMLHTTP")
url = "/rest/?key=xxxx&order=" & orderid & "&id=" & kd & "&ord=desc&show=xml"
http.Open "get", url, False
WebContent = http.responsetext
'MsgBox WebContent
Set objDom = CreateObject("Microsoft.XMLDom")
objDom.async = False
objDom.LoadXML (WebContent)
If objDom.ReadyState & 2 Then
Set Item = objDom.getElementsByTagName("SyncResponseEntity") '读取页面上指定区域
For i = 0 To (Item.Length - 1)
Status = Item.Item(i).getElementsByTagName("status").Item(0).Text
If Status = 1 Then
kdcx = Status
Errcode = Item.Item(i).getElementsByTagName("errcode").Item(0).Text
' kdtime = Item.Item(i).getElementsByTagName("time").Item(0).Text
'link = Item.Item(i).getElementsByTagName("content").Item(0).Text
MsgBox "查询数据还未准备就绪。状态：" & objDom.ReadyState & "。"
Set http = Nothing
Set objDom = Nothing
Select Case Errcode
Case "0000"
Err = "无错误"
Case "0001"
Err = "传输参数格式有误"
Case "0002"
Err = "用户编号(uid)无效"
Case "0003"
Err = "用户被禁用"
Case "0004"
Err = "授权key无效"
Case "0005"
Err = "快递代号(id)无效"
Case "0006"
Err = "访问次数达到最大额度"
Case "0007"
Err = "查询服务器返回错误"
Err = "查询出现未知错误"
End Select
Select Case Status
Status = "未更新的单号"
Status = "查询异常"
Status = "暂无记录"
Status = "在途中"
Status = "派送中"
Status = "已签收"
Status = "拒签收"
Status = "疑难件"
Status = "无效单"
Status = "超时单"
Status = "签收失败"
Status = "快递状态未知情况"
End Select
kdcx = Status
End Function
Sub deletebutton() '删除工具栏和菜单的子程序
Dim tempbar As CommandBar '定义临时工具栏变量
On Error Resume Next '该语句用于忽略错误
mandBars("Menu Bar").Reset '重新设置Word XP的主菜单，即删除新建的菜单
For Each tempbar mandBars '通过&For Each&Next&语句遍历Word XP所有的工具栏
If tempbar.Name = "快递查询" Then '如名称和新建的工具栏相同
tempbar.Visible = False '设置为不可视
tempbar.Delete '删除该工具栏
Sub addbutton() '创建工具栏和菜单并设置属性的子程序
Call deletebutton
'调用删除工具栏和菜单的子程序
Set Obj_Toolbar = mandBars.Add("快递查询") '新建工具栏，&快递查询&代表工具栏的名称
Set Obj_Toolbar_button = Obj_Toolbar.Controls.Add(Type:=msoControlButton, ID:=1) '新建工具栏按钮
With Obj_Toolbar_button '设置按钮的属性
.Caption = "查询快递状态"
.Style = msoButtonIconAndCaption
.FaceId = 1018
.OnAction = "s123"
With Obj_Toolbar '设置工具栏的属性
.Visible = True '工具栏可视
.Enabled = True '工具栏可用
.Position = msoBarTop '工具栏置顶
Private Sub s123()
' Call yyy
lstRo = Cells(Rows.Count, 1).End(xlUp).Row
istart = InputBox("请你输入你想查询的开始行号", "开始行号", "2")
If istart = "" Then Exit Sub
iend = InputBox("请你输入你想查询的结束行号", "结束行号", lstRo)
If iend = "" Then Exit Sub
With Cells(1, 11)
.Value = "快递状态"
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
For Ro = istart To iend
If Cells(Ro, 9) && "" And Cells(Ro, 10) && "" Then
Cells(Ro, 11).Value = kdcx(Cells(Ro, 9), Cells(Ro, 10))
MsgBox "查询已经完毕！"
能支持国内多家快递公司快递单号查询，顺丰快递、圆通快递、申通快递、ems等都支持。key可以到快递单号查询网上面申请。
调用参数：
授权密钥，点击此处 [&&] 即可申请
快递单号，请注意区分大小写
快递代号，如：圆通（yuantong）、申通（shentong），点击此处 [&&]
排序规则：&asc：按时间旧到新排序，&desc：按时间新到旧排序，&不传默认值：asc
返回类型：&json：返回json字符串，&xml：返回xml字符串，&html：返回html字符串，&不传默认值：json常用快递查询
其它快递查询（按拼音首字母排序）： -
自动识别查询：
EMS快递单号
圆通快递单号
申通快递单号
顺丰快递单号
天天快递单号
韵达快递单号
中通快递单号
汇通快递单号
宅急送单号
全峰快递单号
其它快递查询A-F -
AAE快递单号
安捷快递单号
华企快运单号
BHT快递单号
百福东方单号
国通快递单号
德邦物流单号
大田物流单号
DPEX快递单号
飞康达快递单号
其它快递查询G-M
华宇物流单号
佳吉物流单号
佳怡物流单号
加运美快递单号
急先达物流单号
京广快递单号
快捷快递单号
联昊通快递单号
龙邦物流单号
能达物流运单号
其它快递查询N-X -
全一快递单号
全日通快递单号
全晨快递单号
全际通物流单号
速尔快递单号
盛辉物流单号
盛丰物流单号
三态速递单号
TNT快递单号
信丰物流单号
万家物流单号
万象物流单号
[鑫飞鸿快递]
鑫飞鸿快递单号
新邦物流单号
其它快递查询Y-Z
源伟丰快递单号
一邦快递单号
远成物流单号
元捷快递单号
运通快递单号
越丰物流单号
亚风快递单号
源安达单号
原飞航单号
国际普邮单号
优速快递单号
中邮物流单号
中铁快运单号
挂号信单号
友情链接：
快递查询网（.cn）提供各种快递网点电话查询、快递单号查询、快递跟踪查询服务，实时了解快递包裹状态，是查快递最方便快捷的快递查询工具。
Copyright 2009 -
.cn All Rights Reserved.快递查询网址导航

我要回帖

更多关于 drexp快递 的文章

 

随机推荐