借助Powery Query獲取滬深A股的最新行情

王志軍

借助Powery Query獲取滬深A股的最新行情

王志軍

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

第1步：讀取Web信息

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

第2步：修改M語句

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

為便于操作，建議在右側的“查詢設置”窗格將名稱修改為“getdata”，當然也可以使用其他的名稱。檢查無誤之后，返回“開始”選項卡，單擊“關閉并上載”按鈕。

第3步：新建空白查詢

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

第4步：添加自定義列

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

完成上述操作之后，點擊“Custom”按鈕右側的雙箭頭按鈕，在彈出的對話框勾選所有復選框，選擇“擴展”，確認之后關閉對話框；任意選擇某個股票，可以看到類似于圖7所示的信息。返回“開始”選項卡，點擊“關閉并上載”按鈕，可以返回Excel主界面，以后可以在右側窗格隨時點擊“查詢1”進行查詢，需要指出的是，每次后臺查詢都需要下載數據，因此需要一些時間進行刷新，效果如圖8所示。

如果查詢其他網頁的信息，可以參考上述步驟進行操作，感興趣的朋友不妨一試。

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

Wang Zhijun