無論從事網(wǎng)上開店、網(wǎng)上家教或其他網(wǎng)賺活動(dòng)，每天總免不了和許多客戶打交道，因此如何防止被騙那就是一件很重要的事情了。其實(shí)，通過客戶提供的手機(jī)號(hào)碼，我們登錄專門的手機(jī)歸屬地查詢網(wǎng)站，就可以得到客戶很多重要的個(gè)人信息，從而避免和那些信譽(yù)不好的騙子打交道以防止自己遭受不應(yīng)有的損失了。但是執(zhí)行查詢操作時(shí)，得先登錄專門的網(wǎng)站，然后才能一個(gè)個(gè)地查詢客戶手機(jī)號(hào)碼的歸屬地信息，這個(gè)過程不但非常麻煩，而且也不便于保存查詢后的手機(jī)號(hào)碼歸屬地信息。怎樣才能解決這個(gè)棘手的問題呢？還是使用Excel來完成手機(jī)號(hào)碼歸屬地信息的查詢工作比較好，這樣我們只須輸入多個(gè)客戶的手機(jī)號(hào)碼，然后單擊“歸屬地查詢”按鈕就可以了。下面，筆者就給大家介紹一下如何打造一款Excel版手機(jī)號(hào)碼歸屬地查詢器。
第一步：先運(yùn)行Excel2003(其他版本操作類似)，然后把默認(rèn)打開的Excel工作簿中的“Sheet2”和“Sheet3”工作表都刪除并將“Sheet1”工作表重命名為“手機(jī)歸屬地查詢”；接著在這個(gè)工作表的A1——D1單元格分別輸入“客戶手機(jī)號(hào)”、“省市”、“卡類型”和“區(qū)號(hào)”等文字；再選中輸入文字的A1——D1單元格，根據(jù)自己的喜好設(shè)置好單元格的背景色及字體的顏色（如圖1，A處）；最后將這個(gè)Excel工作簿保存到硬盤的任意位置，文件名為“手機(jī)歸屬地查詢器.xls”。
第二步：單擊菜單“工具→宏→Visual Basic編輯器”命令，打開“Visual Basic編輯器”窗口；接著右擊該窗口中的“手機(jī)歸屬地查詢器”工作表選項(xiàng)，選擇“查看代碼”，打開代碼窗口并添加以下代碼（如圖2）：
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, '卡號(hào)')
s = Mid(s, l, 450)
arr = Split(s, 'class=tdc2>', , 1)
B = Left(arr(1), InStr(1, arr(1), '<', 1)="" -="">
Cells(i, 2) = Split(B)(0) + Split(B)(1)
Cells(i, 3) = Left(arr(2), InStr(1, arr(2), '<', 1)="" -="">
Cells(i, 4) = ''' & Left(arr(3), InStr(1, arr(3), '<', 1)="" -="">
Next
End Sub
上述內(nèi)容添加完畢后，關(guān)閉“Visual Basic編輯器”窗口即可，此時(shí)我們添加的代碼就會(huì)自動(dòng)保存了。
第三步：單擊菜單“視圖→工具欄→窗體”命令，調(diào)出“窗體”工具欄；然后單擊該工具欄中的“按鈕”圖標(biāo)，在“手機(jī)歸屬地查詢”工作表的合適位置插入一個(gè)命令按鈕；接著右擊該按鈕，選擇“編輯文字”，將命令按鈕界面的文字修改為“歸屬地查詢”（如圖1，B處）；再右擊圖1，B處的“歸屬地查詢”按鈕，選擇“指定宏”，打開“指定宏”對(duì)話框并選中剛剛創(chuàng)建的宏（如圖3，A處）；最后單擊“確定”按鈕即可。
經(jīng)過以上步驟的操作，這個(gè)Excel版本的手機(jī)號(hào)碼歸屬地查詢器就已經(jīng)大功告成了，關(guān)閉并保存對(duì)這個(gè)Excel工作簿所做的修改，然后重新打開；這時(shí)我們?cè)贏1以下的單元格輸入所有客戶的手機(jī)號(hào)碼后（如圖1，C處），在確保本機(jī)已接入互聯(lián)網(wǎng)的情況下單擊“歸屬地查詢”按鈕，就可以很方便地查詢到與所有客戶手機(jī)號(hào)碼有關(guān)的個(gè)性信息了，如圖1，D處。
怎么樣，有了這個(gè)Excel版的手機(jī)號(hào)碼歸屬地查詢器，我們查詢和保存任意一個(gè)手機(jī)號(hào)碼的歸屬地信息是不是很方便呢？感興趣的朋友不妨一試。
聯(lián)系客服
