如何利用Excel宏和离线数据库自动化IP归属地查询?

IP地址,归属地,运营商192.168.1.1,北京市,中国联通180.76.15.18,上海市,中国电信

Sub 查询IP归属地()    Dim ipAddress As String    Dim csvFilePath As String    Dim fileContent As String    Dim lines() As String    Dim line As String    Dim data() As String    Dim found As Boolean    Dim i As Integer    ' 获取用户输入的IP地址    ipAddress = InputBox("请输入IP地址：", "IP归属地查询")    ' 设置CSV文件路径    csvFilePath = "C:\path\to\your\ip_database.csv"    ' 读取CSV文件内容    Open csvFilePath For Input As #1    fileContent = Input$(LOF(1), 1)    Close #1    ' 将CSV内容按行分割    lines = Split(fileContent, vbCrLf)    ' 查找IP地址对应的归属地    found = False    For i = 0 To UBound(lines)        line = lines(i)        data = Split(line, ",")        ' 如果找到匹配的IP地址        If data(0) = ipAddress Then            MsgBox "IP地址 " & ipAddress & " 的归属地是：" & data(1) & ", 运营商：" & data(2)            found = True            Exit For        End If    Next i    ' 如果未找到对应IP    If Not found Then        MsgBox "未找到IP地址 " & ipAddress & " 的相关信息。"    End IfEnd Sub

Sub 批量查询IP归属地()    Dim ipAddress As String    Dim csvFilePath As String    Dim fileContent As String    Dim lines() As String    Dim line As String    Dim data() As String    Dim i As Integer    Dim resultRow As Integer    ' 设置CSV文件路径    csvFilePath = "C:\path\to\your\ip_database.csv"    ' 读取CSV文件内容    Open csvFilePath For Input As #1    fileContent = Input$(LOF(1), 1)    Close #1    ' 将CSV内容按行分割    lines = Split(fileContent, vbCrLf)    ' 开始处理IP地址列表    resultRow = 1    For i = 1 To ActiveSheet.UsedRange.Rows.Count        ipAddress = Cells(i, 1).Value ' 假设IP地址在第一列        ' 查找IP地址对应的归属地        For Each line In lines            data = Split(line, ",")            If data(0) = ipAddress Then                Cells(resultRow, 2).Value = data(1) ' 输出归属地                Cells(resultRow, 3).Value = data(2) ' 输出运营商                resultRow = resultRow + 1                Exit For            End If        Next line    Next iEnd Sub