V002 修改 Web 外部資料的 URL

在 V001 中我們使用匯入外部資料的功能取得股價歷史資料. 由於我們是新增外部資料, 所以每執行一次都會新增一次資料, 舊的外部資料會向右移動, 執行幾次之後變成下圖的狀況:

所以我們需要的其實是一個可以修改網址的功能, 而不是每次都新增一筆.

新增一個空的工作表 HistY. 先執行一次匯入的動作.

因為我們要錄製更新的指令, 所以執行完匯入之後再錄製巨集. 將巨集名稱指定為 ChangeY, 快速鍵  Ctrl-y

開始錄製後, 按滑鼠右鍵, 選擇 編輯查詢

修改網址最後面的股票代碼 (不修改也可以), 再選擇要匯入的歷史資料部份

匯入之後停止錄製. 在 Visual Basic 編輯器的專案總管裡可以看到新的模組裡有錄好的 ChangeY 程式碼

再幾個簡單的修改就差不多了

1. 第一行的 Selection 表示目前的選取範圍. 我們要確保程式在任何位置都可以執行, 所以將 Selection 改為 Worksheets("HistY").Range("A1")
2. 第二行網址的股票代碼 AMD" 如同在 V001 一樣改為 "+Worksheets("Monitor").Range("B3").

現在可以在 Monitor 工作表上將 Y 股票的價格連結到 HistY!E2 (最新一筆收盤價), 修改 Y 的股票代碼後再按 Ctrl-Y, 看看有沒有改變.

延伸實作

1. 另外做一份 HistX 和 ChangeX, 並連結到 Monitor 的 B2 儲存格.