论坛IP地址与实际地理位置的转换

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open _
    ("E:\MBR.xls")

objExcel.DisplayAlerts = False

intRow = 2

Do Until objExcel.Cells(intRow,1).Value = ""

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
    "Provider= Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source= 'E:\IP.mdb'" 

Dim IPdataArray, IPdatastring
IPdataArray = Split(objExcel.Cells(intRow,6).Value, ".")
IPdatastring = CInt(IPdataArray(0))*16777216 + CInt(IPdataArray(1))*65536 + CInt(IPdataArray(2))*256 + CInt(IPdataArray(3))

sql = "SELECT * FROM IP Where StartIPNumber <= " & IPdatastring & " AND EndIPNumber >= " & IPdatastring

Set objRecordSet = objConnection.Execute(sql)

If not objRecordSet.EOF Then
    objExcel.Cells(intRow,7).Value = objRecordset("Country").Value & " "& objRecordset("Local").Value
End If

objRecordSet.close
objConnection.close
Set objConnection = Nothing

intRow = intRow + 1

Loop

objWorkbook.SaveAs "E:\IPLocation.xls"

objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

Bookmark this post: