实用代码- 客户管理- 手机归属地查询-网络版

FXSHENG · 发表于 2010-11-26 10:10

强!
强顶!
实用!

liquirt · 发表于 2011-5-9 15:27

我来试试行不行

lzqlaj · 发表于 2011-11-29 21:34

效果很好，论坛里又出现一个相似的帖子，是参考楼主的写的，楼主的代码通用性很强。

众智瑞德 · 发表于 2012-11-30 14:30

不能用呀，不知道为什么

lpzxhjp · 发表于 2013-4-2 15:35

不能查询到呀

晨曦矇眬 · 发表于 2016-7-2 18:24

怎么没有进一步改进了啊

YZC51 · 发表于 2016-7-3 11:48

晨曦矇眬发表于 2016-7-2 18:24
怎么没有进一步改进了啊

Sub YZC51()
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
      For i = 2 To Range("a1").End(xlDown).Row
      n = Left(Cells(i, 1), 7)
      URL = "http://www.ip138.com:8080/search.asp?mobile=" & n & "&action=mobile&B1=%B2%E9+%D1%AF"
      .Open "GET", URL, False
      .send
      stext = Replace(Replace(StrConv(.responsebody, vbUnicode), "<TR>", ""), "<TR class=tdc bgcolor=#EFF1F3>", "")
      stext = Replace(Replace(stext, "</TR>", ""), "<TR class=tdc bgcolor=#EFF1F3>", "")
'.responsetext
      strtext = strtext & "<table>" & Split(Split(stext, "卡号归属地")(1), "更详细的")(0) & "</table>"
      Next
End With
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
      .SetText strtext
      .PutInClipboard
End With
Range("b2").PasteSpecial
End Sub

dtlcg · 发表于 2019-3-16 10:00

怎么查询不到？

kchhq · 发表于 2019-9-6 09:35

10年了。现在为什么不能用了呢

3201967906 · 发表于 2019-9-7 22:17

我下载没有显示

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

[分享] 实用代码- 客户管理- 手机归属地查询-网络版

最新热点 /1