表格中快递单号如何返回kuai100.com的查询结果呢？

任我逍遥 · 发表于 2016-4-5 23:59

本帖最后由任我逍遥于 2016-4-6 00:01 编辑

huang1314wei 发表于 2016-4-5 22:11
str1 = Split(Split(.responsetext, "comCode"":""")(2), """")(0) 这一句代码就是返回快递公司名称的， ...

直接写Cells(j, 5) = str1,这样引用就可以引用快递公司不？
太好了，可以了，不过要怎样转换为中文的啊？^_^

huang1314wei · 发表于 2016-4-6 09:24

任我逍遥发表于 2016-4-5 23:59
直接写Cells(j, 5) = str1,这样引用就可以引用快递公司不？
太好了，可以了，不过要怎样转换为中文的啊 ...

写一个自定义函数就行了，把这个写在模块中，然后，写Cells(j, 5) =ch(str1)  就变成中文了
Function ch(ByVal str As String)
Select Case str
      Case "zhongtong"
         ch = "中通快递"
      Case "huitong"
         ch = "汇通快递"
      Case "yunda"
         ch = "韵达快递"
      Case "yuantong"
         ch = "圆通快递"
      Case "shunfeng"
         ch = "顺丰快递"
      Case "shentong"
         ch = "申通快递"
      Case "guotong"
         ch = "国通快递"
      Case Else
         ch = "未知"
End Select
End Function

任我逍遥 · 发表于 2016-4-6 14:43

huang1314wei 发表于 2016-4-6 09:24
写一个自定义函数就行了，把这个写在模块中，然后，写Cells(j, 5) =ch(str1) 就变成中文了
Function ch ...

谢谢你，你是怎样学到这样的境界的啊TT
另外请问如何返回 http://www.dpe.net.cn/Tracking.php 这个网站的查询单号结果呢？代码一样吗？

任我逍遥 · 发表于 2016-4-6 14:45

huang1314wei 发表于 2016-4-6 09:24
写一个自定义函数就行了，把这个写在模块中，然后，写Cells(j, 5) =ch(str1) 就变成中文了
Function ch ...

谢谢你，你是怎样学到这样的境界的啊TT
另外请问如何返回 http://www.dpe.net.cn/Tracking.php 这个网站的查询单号结果呢？代码一样吗？

任我逍遥 · 发表于 2016-4-8 22:56

huang1314wei 发表于 2016-4-5 22:11
str1 = Split(Split(.responsetext, "comCode"":""")(2), """")(0) 这一句代码就是返回快递公司名称的， ...

使用过程中发现一个很奇怪的问题，有些单号明明单号卖家没有发货，应该是“暂无记录”，可是批量查询的时候会显示“已签收”，但是单个用代码查询的时候又会返回正确的结果，什么问题呢？例如“申通快递 229695550000 ”查查其实没有记录的

任我逍遥 · 发表于 2016-4-8 23:02

huang1314wei 发表于 2016-4-5 22:11
str1 = Split(Split(.responsetext, "comCode"":""")(2), """")(0) 这一句代码就是返回快递公司名称的， ...

批量查询的时候会显示三个都是“已签收”，单独对最后一个查询的时候则会显示暂无记录，为何批量查询和单个查询的结果不同呢？
实例如下：

批量查询返回结果错误.zip (42.39 KB, 下载次数: 125)

huang1314wei · 发表于 2016-4-9 07:15

任我逍遥发表于 2016-4-8 23:02
批量查询的时候会显示三个都是“已签收”，单独对最后一个查询的时候则会显示暂无记录，为何批量查询和单 ...

当初写代码的时候，忘了加一句str1 = "": str2 = "": str3 = "": str4 = "" ，加上之后就正常了，就是在下一次循环之后，把变量的值清空，这样可以避免查询出错的时候干扰

附件已修复BUG

批量查询NO1.rar (30.61 KB, 下载次数: 376)

任我逍遥 · 发表于 2016-4-10 21:04

huang1314wei 发表于 2016-4-9 07:15
当初写代码的时候，忘了加一句str1 = "": str2 = "": str3 = "": str4 = "" ，加上之后就正常了，就是在 ...

有些快递如533038143441是联昊通的快递，但是快递默认第一个选项当做快捷的快递了，就变成查不到，实际是联昊通已经签收了的，有什么办法加代码进行判断吗？联昊通变快捷了.png

huang1314wei · 发表于 2016-4-12 19:59

任我逍遥发表于 2016-4-10 21:04
有些快递如533038143441是联昊通的快递，但是快递默认第一个选项当做快捷的快递了，就变成查不到，实际是 ...

批量查询NO2.rar (31.11 KB, 下载次数: 552)

任我逍遥 · 发表于 2016-4-13 14:47

本帖最后由任我逍遥于 2016-4-13 14:49 编辑

huang1314wei 发表于 2016-4-12 19:59

L: str1 = "": str2 = "": str3 = "": str4 = ""
这个前面的L：是什么意思啊？

明白了，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 表格中快递单号如何返回kuai100.com的查询结果呢？

评分

评分

评分