VBA如何修改網址下載財務報表 - 會計

VBA如何修改網址下載財務報表

網誌圖文版：

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

可以這麼理解全球資訊網，各國各地有數不清的伺服器，每台伺服器有許多
網頁，千千萬萬網頁用同一套標準格式編輯，每頁標上門牌號碼（網址），
瀏覽器搜尋到網址，超連結傳送請求給某伺服器，伺服器接受請求，如果網
路通道順暢，立即回傳網頁資料，個人電腦的瀏覽器經過解析，呈現圖文網
頁在螢幕上。這其中，網址如同浩翰圖書館裡的編號和頁碼，如果想要撈取
網際網路裡的數據，必須先解析資料庫網址。以下，就公開資訊觀測站的公
告財務報表為例，分享Excel的VBA於其中妙用：

一、公開資訊觀測站IFRS單一公司案例文件預覽及下載，3323的105年第1季
IFRS 合併財務報表預覽，「
http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=3323&SYE
AR=2016&SSEASON=1&REPORT_ID=C」。

二、「錄製巨集」：「您執行的所有命令將儲存至巨集，您可以再次播放巨
集。」簡單理解，就是Excel把操作以程式形式記錄起來。關於巨集，如果有
興趣，可以參考《會計人的Excel小教室》第一章第四節。

三、取得網頁資料，先前有介紹過作法。

四、下載完後，「停止錄製」，注意到這裡是「105年第一季」。接著在此「
開發人員」功能頁籤中，點擊「Visual Basic」。

五、進入VBA編輯器，雙擊「Module1」，這麼一大段天書，便是剛才所錄製
的Excel操作，下面參數部份也許看不懂，但是開頭的地方該能看得懂：

With ActiveSheet.QueryTables.Add(Connection:=
"URL;http://mops.twse.com.tw/server-java/t164sb01step=1&CO_ID=3323
&SYEAR=2016&SSEASON=1&REPORT_ID=C", Destination:=Range("$A$1"))
.Name="t164sb01step=1&CO_ID=3323&SYEAR=2016&SSEASON=1&REPORT_ID=C"

其中「 _」是VBA程式換行碼，考慮文章呈現，部份我作了修改，自己實際試
作的讀者，以自己Excel檔案的VBA程式為準。

六、關鍵字既然是「ID=3323&SYEAR=2016&SSEASON=1」，照樣造句，依需要
修改，例如：「ID=3323&SYEAR=2016&SSEASON=2」。

七、再次執行巨集，成功下載第二季的財務報告。

很多道理一貫相通。透過網址取得網頁資料，在這篇文章是修改VBA程式，以
先前文章介紹過的Excel指令來說，是修改視窗欄位中的網址，能夠達到相同
效果。更進一步說，平常瀏覽器閱讀網頁，也可以直接在網址列把「1」改成
「2」。重點是，這些以期間資料為主的網站，其網址有一定規則可循，像這
篇文章的「公開資訊觀測站IFRS單一公司案例文件」，網址一長串，至少有
三個地方很明顯：股票代碼、年度、季度，掌握這些規律，是批次取得大數
據的關鍵，其中涉及到的技術較為複雜，留待日後一一介紹。


延伸閱讀：

VBA如何檢查應付帳款負數

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

VBA如何計算健保應負擔金額

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

VBA如何自定義健保級距的計算函數

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

--


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

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


--