Excel vba 批量 ip地址查询

aichiyu

需要JSON

下载地址：https://github.com/VBA-tools/VBA-JSON

---

打开VBA编辑器，选择导入，选择下好的文件JsonConverter.bas导入

Sub GetIPAddressDetails()
    Dim rng As Range
    Dim cell As Range
    Dim xmlhttp As Object
    Dim json As Object
    Dim address As String
    Dim ip As String

    ' 设置要处理的IP地址列范围
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)

    ' 创建XMLHttpRequest对象
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")

    ' 循环处理每个单元格
    For Each cell In rng
        ' 获取IP地址
        ip = cell.Value

        ' 发送GET请求获取JSON数据
        xmlhttp.Open "GET", "https://searchplugin.csdn.net/api/v1/ip/get?ip=" & ip, False
        xmlhttp.send

        ' 检查请求是否成功
        If xmlhttp.Status = 200 Then
            ' 解析JSON数据
            On Error Resume Next ' 避免在解析失败时抛出错误
            Set json = JsonConverter.ParseJson(xmlhttp.responseText)
            On Error GoTo 0 ' 恢复错误处理

            If Not json Is Nothing Then
                ' 检查是否包含数据节点
                If json("data") Is Nothing Then
                    MsgBox "JSON数据中缺少数据节点！", vbExclamation
                Else
                    ' 获取地址信息
                    address = json("data")("address")
                    ' 将地址信息写入B列
                    cell.Offset(0, 1).Value = address
                End If
            Else
                MsgBox "JSON数据解析失败！", vbExclamation
            End If
        Else
            MsgBox "请求失败：" & xmlhttp.Status & " - " & xmlhttp.statusText, vbExclamation
        End If

        ' 等待1秒
        Application.Wait (Now + TimeValue("0:00:01"))
    Next cell

    ' 释放对象
    Set xmlhttp = Nothing
    Set json = Nothing
End Sub

diguoemo

VBA 纯新手，想请问一下楼主，
是把下面的代码直接插入到JsonConverter模块中还是单独添加插入一个新的模块然后在复制代码进去？

shuifanjishi

Set json = JsonConverter.ParseJson(xmlhttp.responseText),这里错误：“JSON数据解析失败!”，是不是要引用什么。

lengbingling

下载的JSonConverter.bas怎么使用?

Gxd1703

谢楼主分享！

ltgb

Excel还能干这种事

龍謹

学习了，虽然一般不会用VBA。

chz123

谢谢分享！

52soft

这个工具不错

pdanny

谢谢！努力成为excel的高手

wan456

从某sdn上获取api

xueyuan124

谢谢楼主分享，