归属地

A0101

利用网络来获取归属地：假如：我在一处，在用excel时，制作一按钮，怎么实现点击按钮，弹出来，你的归属地是江苏省南京市溧水区，怎么写代码，求教朋友帮助！

yjh_27

1要有号码、归属地对照表，2要有附件

605751967

1. Sub 手机归属地()
   
2. m = InputBox("请输入要查询的手机号：")
   
3. With ActiveSheet.QueryTables.Add(Connection:= _
   
4. "URL;http://www.ip138.com:8080/search.asp?mobile=" & m & "&action=mobile", Destination:=Cells(1, 255))
   
5. .WebSelectionType = xlSpecifiedTables
   
6. .WebTables = 2
   
7. .WebFormatting = xlWebFormattingNone
   
8. .Refresh BackgroundQuery:=False
   
9. End With
   
10. arr = Cells(1, 255).Resize(6, 2)
    
11. Cells(1, 255).Resize(6, 2).Clear
    
12. MsgBox arr(2, 1) & " " & Left(arr(2, 2), 11) & Chr(10) & arr(3, 1) & Application.Rept(" ", 14) & arr(3, 2) _
    
13. & Chr(10) & arr(4, 1) & Application.Rept(" ", 18) & arr(4, 2) & Chr(10) & arr(5, 1) & Application.Rept(" ", 22) & "0" & arr(5, 2) _
    
14. & Chr(10) & arr(6, 1) & Application.Rept(" ", 22) & Left(arr(6, 2), 6)
    
15. End Sub

复制代码

漆黑の追迹者

605751967 发表于 2016-3-8 09:21

你这个代码是这样子的，有没有改成批量生成的。