VBA處理大數據政府開放與快速做出查詢系統
完整連結：
http://terry55wu.blogspot.tw/2016/05/vba.html
這是在東吳大學進修推廣部的VBA進階課上課的範例，
分享如何用簡單的VBA知識，就可以輕易地做出查詢系統來，
讓您快速輸入查詢關鍵字，就可以輕易地將查詢結果輸出到新的工作表中，
只需要有些VBA的基本知識，再多認識工作表物件(sheets)就足夠了。
建議先學會以下分享課程：
用EXCEL批次查詢實價登錄開放資料(大數據處理實例) [連結]
用EXCEL設計按清單批次查詢資料(自動新增工作表) [連結]
公訓處Big Data加值應用課程分享 [連結]
用EXCEL快速建立資料查詢系統(錄製巨集與修改) [連結]
如何建立EXCEL版的成語查詢系統 [連結]
如何快速在EXCEL中建立查詢系統(免資料庫)之1 [連結]
如何快速在EXCEL中建立查詢系統(免資料庫)之2 [連結]
如何將單次查詢改為批次查詢 [連結]
資料庫批次篩選新增與更名工作表 [連結]
大數時代來臨如果不懂得裡用自動化方式處理資料，
處理資料將非常沒有效率，
至於處理大數據的方案很多，
但最通行也沒有額外費用的大概只剩VBA了。
而且開啟EXCEL就包含VBA，除了在Windows外，
MAC蘋果電腦一樣也有EXCEL，
VBA也可以沿用以前VB的資源，這樣看來VBA處理大數據應該沒有什麼對手了。
本範例主要是利用EXCEL的篩選功能時做成VBA，
可以一鍵就可以批次查出政府開放的實價登錄的查詢結果，
自動依據清單，可以自動將清單項目，逐一自動新增工作表，
並將查詢結果匯入，也可以隨時更改查詢需求，
除了便利外，也非常有彈性，
並可結合從網路下載資料到EXCEL中，隨時更新最新的資訊。
當然未來也可以結合雲端資料庫，與APP連動了。
內政部不動產實價登錄網站 [連結]
範例檔 [下載]
上課內容：
01_下載內政部實價登錄開放資料
02_下載EXCEL檔案
03_只下載新北市開放資料
04_留下不動產買賣資料
05_貼上查詢VBA程式做修改
06_產生輸入地址關鍵字介面
07_自動新增工作表並輸出結果
程式碼：
教學影音(完整版在論壇)：
http://terry55wu.blogspot.tw/2016/05/vba.html
教學影音完整版在論壇：
https://groups.google.com/forum/#!forum/scu_excel_vba2_86
課程特色：
1.如何將函數轉成VBA2.VBA與資料庫快速結合
EXCEL函數、 VBA程式設計與資料庫是分別屬於三個領域的知識，
但卻是目前大家都需要的一項專業技能，要把三者融合的很好實在非常不容易，
剛好我有近20年的VB程式設計與資料庫設計的經驗，
教EXCEL函數與相關課程也有多年，因此清楚如何把最重要的知識教給大家，
ADO資料庫設計的知識非常多，但根據我多年的設計實務經驗，
覺得最重要的是掌握SQL語言，就可以輕易的完成查詢、新增、修改與刪除等功能，
就可以輕易的完成自己想處理的大量資料，大大提高工作效率了!
上課用書是：
Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php…)
Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php…)
完整教學影音DVD申請:http://goo.gl/ZlBZE
論壇：http://groups.google.com/group/labor_excel_vba?hl=zh-TW
相關教學連結:
如何設計VBA表單與EXCEL當資料庫用(85期)
提高效率VBA入門班第1次上課心得分享
EXCEL VBA處理股票分析自動最佳化範例
如何在EXCEL VBA中快速刪除空白列
定存範例轉VBA與只能輸入數字的InputBox
如何學會EXCEL VBA資料庫系列之一
EXCEL VBA入門：如何撰寫自動格式化的VBA程式
EXCEL VBA入門之一：如何函數轉VBA
VB.NET設計(九九乘法表&小狗動畫&撲克牌&字幕)
回覆Excel VBA入門與進階課的差異？
如何批次下載股市資料到EXCEL中之2
如何用VBA快速取得期貨交易資料(開收高低量)
如何在EXCEL VBA隱藏與顯示工作表
如何移動工作表與排序之1
如何批次下載股市資料到EXCEL中之1
如何批次下載股市資料到EXCEL中
如何建立表單與將EXCEL當成資料庫
如何讓用ACCESS將EXCEL的資料
如何排序工作表
如何將單次查詢改為批次查詢(EXCEL VBA自動化)
如何在EXCEL VBA的工作表隨機上顏色
如何快速在EXCEL中建立查詢系統(免資料庫)之2
如何精簡VBA程式與傳遞引數
如何快速在EXCEL中建立查詢系統(免資料庫)之1
如何將大量工作表整合在一個工作表
如何在EXCEL VBA新增沒有重複名稱工作表
如何自動下載YAHOO股市資料到EXCEL中
如何建立表單與將EXCEL當成資料庫使用
如何在EXCE VBA中複製工作表
如何在EXCEL VBA如何保護工作表
如何在EXCEL VBA新增沒有重複名稱工作表
如何在EXCEL工作表中移動
EXCEL VBA辦公自動化_如何建立查詢系統
如何當下拉清單改變時自動抓取資料之一
如何將數學函數轉EXCEL VBA設計之二
如何增加EXCEL VBA按鈕
如何設定EXCEL VBA開發環境設定說明
如何將EXCEL函數轉成VBA
如何再VBA中建立EXCEL的自訂函數讓公式變簡單
1.EXCEL VBA設計(自強基金會2012)第4次上課
http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html
2.如何把EXCEL"函數"變為 "VBA"？自強基金會2012第5次上課
http://terry55wu.blogspot.tw/2012/04/excel-vba.html
3.自強基金會2012第8次上課
http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html
4.自強基金會2012第9次上課
http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html
5.EXCEL_VBA與資料庫--自強基金會2012(Ending)
http://terry55wu.blogspot.tw/2012/…/excelvba-2012ending.html
EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel excel vba教學視頻 excel函數教學 excel函數
excel vba 依 序 貼 上 在 [心得] VBA取得財務報表- 看板Stock - 批踢踢實業坊 的推薦與評價
VBA取得財務報表
網誌圖文版：
https://www.b88104069.com/archives/4374
第二篇到目前為止，都是以單一公司進行財務分析，需要取得公司股東會年報和財務報告
，實務上大多會是多家公司同時進行分析，如果是一家一家取得財務資料PDF檔案，顯然
不容易進行。上一節有介紹過用Excel取得財務報表，雖然成功將財報資料下載到Excel工
作表，很方便進一步處理，但每下載一份報表，便需要操作一次，在想要同時分析多家公
司或是多個期間的場合，不是那麼有效率，這一節進一步介紹如何運用VBA程式，達到較
為自動化地取得財務報表。
一、接下來會頻繁用到Excel的VBA功能，已經是Excel程式設計師了，所以第一步是將開
發人員的面板打開。在上方功能區點選最右上角的「檔案」，在跳出來的視窗選擇最左下
角的「選項」，最後在「Excel選項」視窗中，移到「自訂功能區」頁籤，將右邊自訂功
能區的「開發人員」勾選。在這裡，還以點選最右邊的上下按紐、調整眾多指令在上方功
能區的順序。
二、回到Excel上方功能區，多出了一個「開發人員頁籤，選點「程式碼」中的Visual
Basic，當滑鼠游標停留在這個指令的時候，會彈出輔助說明：開啟Visual Basic編輯器
，並且還會提示「Alt+F11」為快速組合鍵。
三、如果讀者是使用本書附帶的Excel檔案，開啟VBA後，會看到如下的畫面︳這便是
Excel編寫VBA程式碼的界面，在程式模組中的「Module 1」，已經寫好了一個「
BalanceSheet」的巨集程式。
四、回到Excel操作界面，在上方功能區移到「開發人員」頁籤，於「程式碼」群組中選
擇「巨集」，一樣會彈出輔助說明：「查看可使用巨集的清單，一樣有提示「Alt+F8」為
快速組合鍵。
五、點開「檢視巨集」後，跳出「巨集」視窗，初看有很多巨集程式可供選擇。
將下面有個「巨集存放在」的選單下拉，發現其實還有一個「PERSONAL.XLSB」，這個是
Excel內置的一個隱藏工作表，只要開啓任何一個Excel檔案，就會連帶隱藏開啟這個檔案
，可想見例如將A巨集放在此個人活頁簿，效果等同於在所有Excel檔案都能執行這個A巨
集。
在此用不到「PERSONAL.XLSB」，直接下拉改選為「現用活頁簿」即可，表示只需要列出
目前活頁簿所具有的巨集清單。另外，讀者如果沒有在使用「PERSONAL.XLSB」，開啓書
本範例檔案應該也只看到「BalanceSheet」，這裡因為剛好筆者有這些東西，順便作個分
享。
改為「現用活頁簿」之後，清爽了許多，按右上角的「執行」，讓Excel開始跑第三步驟
所看到的那些程式。
六、刷刷刷，稍加等待，Excel果然一口氣了五個年度的資產負債表，很多資料，這裡礙
於篇幅僅能截圖其中一部份。年度從左到右是2013年到2017年，不過把坐標往右邊拉，會
看到有個2012年1月1日，通常財報是兩個比較年度，2013年較為特別有三個年度，我的程
式設定每個年度財報佔三欄：會計欄位、本年度金額、上年度金額，每次VBA取得資料會
以插入方式新增欄位，所以第一次資料中的2012年，於是被擠到最後面去，由於不致於影
響財務比率分析，不另外作程式調整。
七、將這一節的VBA程式碼列示如下，依照列號作說明。
10：開始一個取名為「BalanceSheet」的巨集程序程式。
30：定義Year為整數變數，定義WebAddress, DesCell為文字變數。
50：先將工作表所有儲存格清除。
70：以變數Year設置2013到2017的迴圈事件，這個省略「Step 1」，因為迴圈預設是正一
的等差級數，亦即整數的流水號。
80-90：依照公開資訊觀測站的年度財務報書網址，設定WebAddress的值，其中的「Year
」依照迴圈進行的話，剛好會是股票代碼2409的2013到2017五個年度的第四季財務報告書
。
100：設定DesCell變數為所取得財報資料要開始貼上的儲存格坐標位址，其中的「*3」形
成公差為3的等差級數，用意便是上個步驟所說的每個年度財報佔三個欄位，依序往右邊
接續。
110：VBA取得網路資料的固定程式，其「Connection」為網址參數，「Destination」為
目的儲存格位址參數。
120：設定取得網頁資料的特定表格。
130：設定取得網頁上的第2個表格。
140：設定不在背景執行，也是要等到完整資料後再執行下一行程式，因為Excel並非專門
取得網頁資料的應用軟體，而且網頁太多的話Excel可能會不穩定，所以都會把這個設定
為False。
150：結束With，這一行和110行形成一個VBA的With…End With事件，作用是方便針對同
一物件設置許多參數，毋須在每一行程式再一次重申所關聯的對象物件。
160：這一行和70行成一個VBA的迴圈事件。一開始70行的Year是2013，執行到160行再跳
回到70行，Year變成是下一個2014，往下再一次執行程式到160行，直到Year是2017將整
個等差迴圈執行完了，才會從160行往下跳到170行。
180：取得所有資料後，將工作表所有欄寛都設定為15，方便閱讀。
200：結束此巨集程式。
筆者上一本書為《人人做得到的網路資料整理術》，全書以八章四十個小節，介紹Excel
VBA如何取得網路資料，作為範例的網站類型有藝文展覽、天氣預報、借閱排行、銀行匯
率等，其中有個類型便是公開資訊觀測站的財務報表，這一節的VBA程式碼便是引用自上
一本書。
當時那本書《人人做得到的網路資料整理術》側重於Excel VBA的技術基礎，這本書主題
是財報分析，僅僅利用Excel VBA作為工具取得原始財報，所以在接下來章節有用到VBA的
地方，還是會稍加說明，但在技術層面不會像上一本書那麼詳盡，讀者有需要可以使用本
書附帶的Excel檔案，直接執行巨集程式即可。
不過如同這一節提到的2013年較為特殊有三個年度，網頁資料難免結構可能有變動，甚至
網址規則都有可能更改。建議讀者真的很需要常常取得財務報表進行分析，建議可閱讀《
人人做得到的網路資料整理術》，完整學習如何編寫VBA程式取得網路資料。
延伸閱讀：
償債能力分析：流動比率
https://www.b88104069.com/archives/4372
Excel如何取得XBRL網頁資料
https://www.b88104069.com/archives/4368
Excel如何取得財報
https://www.b88104069.com/archives/4365
--
周末，我們繼續Excel：精華區=>21.心得=>5.其他=>3.office
會計人的Excel小教室： https://www.facebook.com/acctexcel
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.22.232.166
※ 文章網址: https://www.ptt.cc/bbs/Stock/M.1553935237.A.BFB.html
... <看更多>