打造Excel版手機號碼歸屬地查詢器

  無論從事網上開店、網上家教或其他網賺活動,每天總免不了和許多客戶打交道,因此如何防止被騙那就是一件很重要的事情了。其實,通過客戶提供的手機號碼,我們登錄專門的手機歸屬地查詢網站,就可以得到客戶很多重要的個人信息,從而避免和那些信譽不好的騙子打交道以防止自己遭受不應有的損失了。但是執行查詢操作時,得先登錄專門的網站,然後才能一個個地查詢客戶手機號碼的歸屬地信息,這個過程不但非常麻煩,而且也不便於保存查詢後的手機號碼歸屬地信息。怎樣才能解決這個棘手的問題呢?還是使用Excel來完成手機號碼歸屬地信息的查詢工作比較好,這樣我們只須輸入多個客戶的手機號碼,然後單擊「歸屬地查詢」按鈕就可以了。下面,筆者就給大家介紹一下如何打造一款Excel版手機號碼歸屬地查詢器。

第一步:先運行Excel2003(其他版本操作類似),然後把默認打開的Excel工作簿中的「Sheet2」和「Sheet3」工作表都刪除並將「Sheet1」工作表重命名為「手機歸屬地查詢」;接著在這個工作表的A1——D1單元格分別輸入「客戶手機號」、「省市」、「卡類型」和「區號」等文字;再選中輸入文字的A1——D1單元格,根據自己的喜好設置好單元格的背景色及字體的顏色(如圖1,A處);最後將這個Excel工作簿保存到硬碟的任意位置,文件名為「手機歸屬地查詢器.xls」。

打造Excel版手機號碼歸屬地查詢器

第二步:單擊菜單「工具→宏→Visual Basic編輯器」命令,打開「Visual Basic編輯器」窗口;接著右擊該窗口中的「手機歸屬地查詢器」工作表選項,選擇「查看代碼」,打開代碼窗口並添加以下代碼(如圖2):

打造Excel版手機號碼歸屬地查詢器

Sub SJ()

Set A = CreateObject(‘Microsoft.XMLHTTP’) ‘

Const URL = ‘http://www.ip138.com:8080/search.asp’

For i = 2 To Range(‘a1’).End(xlDown).Row

N = Cells(i, 1)

C = ‘mobile=’ & N & ‘&action=mobile&B1=%B2%E9+%D1%AF’

A.Open ‘post’, URL, False

A.setRequestHeader ‘Content-Type’, ‘application/x-www-form-urlencoded’

A.send C

s = A.responseBody

s = StrConv(s, 64)

s = Replace(s, ”, ‘ ‘, , , 1)

l = InStr(s, ‘卡號’)

s = Mid(s, l, 450)

arr = Split(s, ‘class=tdc2>’, , 1)

B = Left(arr(1), InStr(1, arr(1), ‘

Cells(i, 2) = Split(B)(0) + Split(B)(1)

Cells(i, 3) = Left(arr(2), InStr(1, arr(2), ‘

Cells(i, 4) = ”’ & Left(arr(3), InStr(1, arr(3), ‘

Next

End Sub

上述內容添加完畢後,關閉「Visual Basic編輯器」窗口即可,此時我們添加的代碼就會自動保存了。

第三步:單擊菜單「視圖→工具欄→窗體」命令,調出「窗體」工具欄;然後單擊該工具欄中的「按鈕」圖標,在「手機歸屬地查詢」工作表的合適位置插入一個命令按鈕;接著右擊該按鈕,選擇「編輯文字」,將命令按鈕界面的文字修改為「歸屬地查詢」(如圖1,B處);再右擊圖1,B處的「歸屬地查詢」按鈕,選擇「指定宏」,打開「指定宏」對話框並選中剛剛創建的宏(如圖3,A處);最後單擊「確定」按鈕即可。

打造Excel版手機號碼歸屬地查詢器

經過以上步驟的操作,這個Excel版本的手機號碼歸屬地查詢器就已經大功告成了,關閉並保存對這個Excel工作簿所做的修改,然後重新打開;這時我們在A1以下的單元格輸入所有客戶的手機號碼後(如圖1,C處),在確保本機已接入互聯網的情況下單擊「歸屬地查詢」按鈕,就可以很方便地查詢到與所有客戶手機號碼有關的個性信息了,如圖1,D處。

怎麼樣,有了這個Excel版的手機號碼歸屬地查詢器,我們查詢和保存任意一個手機號碼的歸屬地信息是不是很方便呢?感興趣的朋友不妨一試。

本文為頭條號作者發布,不代表今日頭條立場。