VBA如何批次取得網頁資料 - 會計

VBA如何批次取得網頁資料

網誌圖文版：

http://www.b88104069.com/archives/4366

如果你進入Excel顏色代碼表的連結（
https://docs.microsoft.com/zh-tw/office/vba/api/Excel.ColorIndex)），會看到代
碼表。那張表本身便是VBA程式碼自動產生的，運用的是一般程式設計裡都有的「迴圈」
概念。在依照某個規則大量運行程式的場合，非常適合設計迴圈。這一節首先以顏色代碼
表為例，簡單介紹迴圈如何設置，接著再以這一章取得匯率的主題，運用迴圈批次取得一
整年12個月的歷史匯率。

一、圖片所示的程式碼說明如下：「Cells.Clear」先清除工作表。「For i = 1 To 14
Step 1」以變數「i」設置迴圈程式，從「1」開始到「14」，「Step 1」表示1、2、3數
列的順序，如果是「Step 2」便是2、4、6數列，這裡是為求範例完整加了個「Step 1」
，其實這是系統預設值可以省略的。「Cells(1, i)」是儲存格對象，裡面的「1」代表第
幾列、「i」代表第幾欄，「Value」為儲存格值的屬性，「Interior.Colorindex」為儲
存格背景色彩的屬性。圖片綠色部份前面加「'」為註記文字，這是編寫程式的慣常用法
。

二、執行巨集「Colorindex」的結果如圖所示。

三、依照相同思惟，外面再加一層變數「j」迴圈，計算式作一些變化，編寫如圖所示的
程式，執行結果便是上一節最後一張顏色代碼圖。

四、接下來要將迴圈設計的概念，嵌入取得匯率資料的程式裡，以便一次取得數期的歷史
匯率。首先，整理先前的程式碼，取消InputBox，回到一開始直接寫入網址及位置的方式
，最後加一個欄寛及水平置中的格式調整，避免每次下載完欄位變得很寛，很不方便，其
餘顏色及框線僅僅是美觀考量，暫不設置。

五、執行結果如圖所示，標黃色部份是第23行，也就是網頁一個月的匯率資料有22行，如
果要一次取得12個月的資料，等於是設置「step 22」的迴圈，讓第二個月的資料從第23
行開始，第三個月之後依序類推。

六、在上一步驟的基礎上，設計迴圈，編寫程式如圖所示。這裡用到的概念有變數計算、
迴圈設置、條件判斷、格式調整，除了條件判斷，其他概念在先前章節都有相關範例，條
件判斷在下一節再多加介紹。

七、執行「DownloadWeb」巨集，成功一次取得2015年12個月的美金歷史匯率，下載到
Excel工作表上，因資料量多，以20%比例呈現，Excel會自動加上外部資料的標題，從「
外部資料1」到「外部資料12」，包含中間空白總共有300行的歷史匯率明細。

從略縮圖來看，顯然在不同月份的資料表之間，留有許多行的空白，在格式也沒有多作設
定，必須下載完資料後再作整理。另外這個程式碼是固定的，例如我如果想要的是2016年
的美金資料、或者是2015年的歐元資料，只能再修改程式碼，凡此種種，都需要進一步設
計完善，這個會在往後章節繼續介紹。



延伸閱讀：

VBA如何取得網頁資料時自動整理格式

http://www.b88104069.com/archives/4362

Excel如何取得台灣銀行匯率

http://www.b88104069.com/archives/4348

Excel如何建立財務報表檔案資料

http://www.b88104069.com/archives/4332

--


周末，我們繼續Excel：精華區=>21.心得=>5.其他=>3.office

會計人的Excel小教室： https://www.facebook.com/acctexcel


--