手机号码归属地批量查询

dragonthree

Sub testt()
On Error Resume Next
With CreateObject("internetexplorer.application")
    .Visible = True
    .Navigate "https://cx.shouji.360.cn"    '
    Do Until .ReadyState = 4
        DoEvents
    Loop
    For i = 2 To Sheet1.UsedRange.Rows.Count
        .Document.All("number").Value = Cells(i, 2).Value
        .Document.All("smt").Click
        '查找到的内容怎么写
        'Cells(i, 3) = ？
    Next
End With
End Sub

大表格1

用我的E达通工具箱可以查询https://static-mp-ce8139cb-769a-4711-9297-5337f0c632ce.next.bspapp.com/%E6%88%91%E7%9A%84%E7%BD%91%E7%AB%99/Excel%E4%BB%A3%E7%A0%81%E5%AE%9D%E9%A1%B9%E7%9B%AE/index.html

lisongmei

用python去抓吧，这个没反爬。简单的很。。

xunanming

试试---------------------------------

perfect131

lisongmei 发表于 2024-3-18 15:32
用python去抓吧，这个没反爬。简单的很。。

vbs 都可以爬，还要啥 py
py 只搞瑞数

perfect131

VBA && PY