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 --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.20.97.195 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Accounting/M.1549212078.A.C34.html