打造Excel版手機(jī)號碼歸屬地查詢器

天道酬勤YXJ1 2017-02-03

展開全文

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

第一步：先運(yùn)行Excel2003(其他版本操作類似)，然后把默認(rèn)打開的Excel工作簿中的“Sheet2”和“Sheet3”工作表都刪除并將“Sheet1”工作表重命名為“手機(jī)歸屬地查詢”；接著在這個工作表的A1——D1單元格分別輸入“客戶手機(jī)號”、“省市”、“卡類型”和“區(qū)號”等文字；再選中輸入文字的A1——D1單元格，根據(jù)自己的喜好設(shè)置好單元格的背景色及字體的顏色（如圖1，A處）；最后將這個Excel工作簿保存到硬盤的任意位置，文件名為“手機(jī)歸屬地查詢器.xls”。

打造Excel版手機(jī)號碼歸屬地查詢器

第二步：單擊菜單“工具→宏→Visual Basic編輯器”命令，打開“Visual Basic編輯器”窗口；接著右擊該窗口中的“手機(jī)歸屬地查詢器”工作表選項，選擇“查看代碼”，打開代碼窗口并添加以下代碼（如圖2）：

打造Excel版手機(jī)號碼歸屬地查詢器

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), '<', 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)="" -="">

End Sub

上述內(nèi)容添加完畢后，關(guān)閉“Visual Basic編輯器”窗口即可，此時我們添加的代碼就會自動保存了。

第三步：單擊菜單“視圖→工具欄→窗體”命令，調(diào)出“窗體”工具欄；然后單擊該工具欄中的“按鈕”圖標(biāo)，在“手機(jī)歸屬地查詢”工作表的合適位置插入一個命令按鈕；接著右擊該按鈕，選擇“編輯文字”，將命令按鈕界面的文字修改為“歸屬地查詢”（如圖1，B處）；再右擊圖1，B處的“歸屬地查詢”按鈕，選擇“指定宏”，打開“指定宏”對話框并選中剛剛創(chuàng)建的宏（如圖3，A處）；最后單擊“確定”按鈕即可。

打造Excel版手機(jī)號碼歸屬地查詢器

經(jīng)過以上步驟的操作，這個Excel版本的手機(jī)號碼歸屬地查詢器就已經(jīng)大功告成了，關(guān)閉并保存對這個Excel工作簿所做的修改，然后重新打開；這時我們在A1以下的單元格輸入所有客戶的手機(jī)號碼后（如圖1，C處），在確保本機(jī)已接入互聯(lián)網(wǎng)的情況下單擊“歸屬地查詢”按鈕，就可以很方便地查詢到與所有客戶手機(jī)號碼有關(guān)的個性信息了，如圖1，D處。

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