借助Powery Query獲取滬深A(yù)股的最新行情

王志軍

借助Powery Query獲取滬深A(yù)股的最新行情

王志軍

很多時(shí)候，我們需要即時(shí)獲取特定頁(yè)面的網(wǎng)頁(yè)信息，如果使用的 Excel版本是 2016，那么我們可以借助 Powery Query實(shí)現(xiàn)類似的需求，如圖1所示，這里以獲取證券之星行 情 中 心（http://quote.stockstar.com/stock/ranklist_a_3_1_1。html）滬深A(yù)股的95個(gè)頁(yè)面信息為例進(jìn)行說明：

第1步：讀取Web信息

打開Excel 2016，切換到“數(shù)據(jù)”選項(xiàng)卡，在“獲取和轉(zhuǎn)換”功能組依次選擇“新建查詢→從其他源→從 Web”，隨后會(huì)打開“從Web”對(duì)話框，在這里粘貼相應(yīng)頁(yè)面的URL地址；單擊“確定”按鈕建立連接，很快就可以看到“導(dǎo)航器”界面，在這里選擇“滬深A(yù)股”，很快就可以看到圖2所示的豐富信息。

第2步：修改M語句

點(diǎn)擊“編輯”按鈕；隨后會(huì)自動(dòng)打開查詢編輯器，點(diǎn)擊“查詢”功能組的“高級(jí)編輯器”按鈕，如圖3所示，這是原來的M語句，我們需要在這里自定義一個(gè)可以獲取網(wǎng)頁(yè)的函數(shù)，也就是最前面添加一行“（page as number）as table=〉”的內(nèi)容，同時(shí)在“源”這一行最后一個(gè)“1”替換為“"&Number.ToText（page）&"”的內(nèi)容，請(qǐng)參考圖4所示進(jìn)行修改，最后點(diǎn)擊右下角的“已完成”按鈕。

為便于操作，建議在右側(cè)的“查詢?cè)O(shè)置”窗格將名稱修改為“getdata”，當(dāng)然也可以使用其他的名稱。檢查無誤之后，返回“開始”選項(xiàng)卡，單擊“關(guān)閉并上載”按鈕。

第3步：新建空白查詢

返回Excel主界面，接下來需要打一個(gè)空的查詢表，仍然切換到“數(shù)據(jù)”選項(xiàng)卡，在“獲取和轉(zhuǎn)換”功能組依次選擇“從其他源→空白查詢”命令，此時(shí)會(huì)打開“高級(jí)編輯器”對(duì)話框，刪除原有的內(nèi)容，手工輸入“｛195｝”，單擊“已完成”按鈕，可以看到圖5所示的列表界面。

第4步：添加自定義列

接下來需要將其轉(zhuǎn)換為table，點(diǎn)擊左上角的“列表”按鈕，可以看到圖所示的界面，點(diǎn)擊“轉(zhuǎn)換”功能組的“到表”按鈕，關(guān)閉隨后彈出的對(duì)話框；切換到“添加列”選項(xiàng)卡，打開“添加自定義列”對(duì)話框，新列名修改與否可自行決定，在這里自定義列公式“=getdata（［Column1］）”，可參考圖6所示進(jìn)行操作，檢查無誤之后點(diǎn)擊“確定”按鈕，轉(zhuǎn)換為表的操作需要一些時(shí)間，請(qǐng)耐心等待。

完成上述操作之后，點(diǎn)擊“Custom”按鈕右側(cè)的雙箭頭按鈕，在彈出的對(duì)話框勾選所有復(fù)選框，選擇“擴(kuò)展”，確認(rèn)之后關(guān)閉對(duì)話框；任意選擇某個(gè)股票，可以看到類似于圖7所示的信息。返回“開始”選項(xiàng)卡，點(diǎn)擊“關(guān)閉并上載”按鈕，可以返回Excel主界面，以后可以在右側(cè)窗格隨時(shí)點(diǎn)擊“查詢1”進(jìn)行查詢，需要指出的是，每次后臺(tái)查詢都需要下載數(shù)據(jù)，因此需要一些時(shí)間進(jìn)行刷新，效果如圖8所示。

如果查詢其他網(wǎng)頁(yè)的信息，可以參考上述步驟進(jìn)行操作，感興趣的朋友不妨一試。

With the Aid of Powery Query to Obtain the Latest Quotation of Shanghai&Shenzhen Shares A

Wang Zhijun