---

Excel如何取得多家公司財務報表

網誌圖文版：

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



一、從清單中，選擇五檔股票。

二、編寫VBA程式碼如下：

40：想利用Excel作為VBA程式的一部份，首先必須計算Excel資料的範圍，於此範例即為
有多少行，「UsedRange.Rows.Count」便是執行此計算最佳的程式。

70：MsgBox為VBA中相當基本的函數，作用是跳出提示訊息的視窗，函數後面接的字符串
是視窗中顯示的訊息文字。

三、執行巨集後，跳出來的視窗：「資料共有7行」。

四、編寫新增工作表的程式碼：

30：宣告變數。

50~60：計算工作表「一」有多少行資料，由於上一個步驟驗證過，計算結果會比實際行
數多一，所以這裡設定「Row=Row-1」。

80：以變數「i」設置迴圈，參照資料有標題行，因此這裡是從「2」開始，一直到代表總
共有多少行。

100~120：將「Stock」變數設定為「股票代碼-公司名稱」。

140~150：新增工作表，依序以「Stock」更改新工作表的名稱。

五、執行結果，一如預期。

六、最後再添加補充程式碼如下，執行前記得先將上一步驟新增的工作表刪除，避免VBA
提示錯誤。另外這裡的程式行雖然多，主要是UsedRange.Rows.Count、
ActiveWorkbook.Sheets.Add、ActiveSheet.QueryTables.Add三個VBA方法綜合應用，在
先前皆已介紹過，於此不再多作說明。

七、成功取得五家公司2016年度的損益表。



本文內容取自《人人做得到的網路資料整理術》，博客來書店網址：
http://www.books.com.tw/products/0010775391。


延伸閱讀：

Excel如何取得公開發行公司財務報表

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

Excel如何取得多期損益報表

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

Excel如何取得股票代碼清單

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

--


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

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


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.20.97.197
※ 文章代碼(AID): #1RBmG6ls (Office)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1529807878.A.BF6.html