实现银行卡归属地批量网页查询,并将查询的内容提取到工作表中

wl-w.l · 发表于 2018-11-7 23:37

实现银行卡归属地批量网页查询,并将查询的内容提取到工作表中:根据F列的银行账号,在http://bank.55cha.com/中查询,
将查询后的银行名称填入到B列中,

将查询后归属信息分省市分别填入到C列和D列中,
注:省市归属信息中间是用"－"分隔的。
请大侠们帮忙惠助！！！
辛苦了，谢谢啦！！！

wl-w.l · 发表于 2018-11-12 11:08

大家都在忙呀

wl-w.l · 发表于 2018-11-12 11:13

现自己收集了些代码方法，可是运行发生错误，不支持属性和方法，还请大家帮忙指正，代码如下：

wl-w.l · 发表于 2018-11-12 11:14

本帖最后由 wl-w.l 于 2018-11-12 11:29 编辑

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False '关闭屏幕刷新
   'On Error Resume Next
   Dim temp
   n = Range("F65536").End(xlUp).Row
With CreateObject("Microsoft.XMLHTTP")
   .Open "GET", "http://abchina.yinhangkahao.com/", False       '打开网页  "GET" 256KB "POST"4MB
For p = 2 To n
   .document.getElementById("inputtext").Value = Cells(p, 6) '填入查询内容
   .document.getElementById("inputbt").Click                   '查询
      .send
temp = Split(Split(.responsetext, "<p style="), "<p>")       '分列网页源码
      Cells(p, 3) = Split(Split(temp(3), ">")(1), " -- ")
      Cells(p, 4) = Split(Split(temp(3), " -- ")(1), "</font>")
      Cells(p, 2) = Split(Split(temp(2), "</p>")(1), " --")
If Cells(p, 2) = "工商银行" Then
      Cells(p, 5) = "0200"
   Else
      Cells(p, 5) = "0000"
End If
Next p
Set temp = Nothing
End With
Application.ScreenUpdating = True '打开屏幕刷新
   MsgBox "完成"
End Sub

wl-w.l · 发表于 2018-11-12 11:15

本帖最后由 wl-w.l 于 2018-11-12 11:28 编辑

运行错误'438'对象不支持此属性或方法

wl-w.l · 发表于 2018-11-12 11:20

主要是
.document.getElementById("inputtext").Value = Cells(p, 6) '填入查询内容
.document.getElementById("inputbt").Click '查询
这两句提示运行错误'438'对象不支持此属性或方法

wl-w.l · 发表于 2018-11-12 11:21

本帖最后由 wl-w.l 于 2018-11-12 11:29 编辑

请朋友们指教

xiem5180 · 发表于 2021-4-24 23:03

wl-w.l 发表于 2018-11-12 11:08
大家都在忙呀

xiem5180 · 发表于 2021-4-24 23:25

问题解决了没有？

约定的童话 · 发表于 2021-10-29 05:41

wl-w.l 发表于 2018-11-12 11:20
主要是
.document.getElementById("inputtext").Value = Cells(p, 6) '填入查询内容
.document.get ...

这两句是IE用法，要调用IE浏览器操作

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

[求助] 实现银行卡归属地批量网页查询,并将查询的内容提取到工作表中