Excel如何取得多期损益报表 网志图文版： http://www.b88104069.com/archives/4313 上一节利用「按一下以选取这个表格」的功能，取得网页某一个特定的表格资料，这一 节先介绍如何以VBA方式完成相同任务。同时也运用上一章回圈设计的概念，进一步批次 取得多个年度的财务报表，因为如此取得的内容，会有重覆资料的问题，所以最後再利用 复制贴上的程式码，自动将资料整理成符合需要的格式。 一、首先要知道所需的表格在整个网页的次序。有三个方法，第一是直接看网页，但有时 不太确定哪些是表格属性；第二是上一节在取得网页资料时，透过Excel仔细数看看所选 取表格属於第几个；第三是最正式的，直接在Chrome浏览器滑鼠右键「检查网页原始码」 ，再用Find指令将表格找出来，如图所示。 二、编写VBA程式码如下，「QueryTables」的方法前面章节介绍很多，於此不赘述。这里 较为特别的属性是「.WebSelectionType = xlSpecifiedTables」，表示选取特定的表格 ，「.WebTables = "3"」指选取整个网页中的第三个表格。 三、执行结果如图所示，只下载损益表的部份。（同样以2002中钢为例） 四、设置回圈，以Year作为回圈变数，因为2013年上市柜公司开始采用IFRS，2012以前并 无资料，变数值设定为从2013到2016。然後和本书其他章节范例相同，引用WebAddress、 DesCell作网址变数及储存格参照变数，最後将工作表的栏寛统一为15：「 Columns().ColumnWidth = 15」。 五、执行巨集「IncomeStatements」，成功一次下载三个年度的损益表，然而损益表项目 栏和前一年度资料会有重覆。 六、为解决重覆问题，另外编写整理格式的程式码。 Cells.UnMerge 为方便复制，首先将工作表所有储存格取消合并。 Cells(1,1).EntireColumn.Copy Sheets("七").Cells(1,1).EntireColumn 第一栏为损益表项目栏，只会复制一次，单独处理，这里程式码用意是将目前工作表第一 栏，整栏复制到工作表「七」的第一栏。 For i = 1 To 4 Cells(1, 2 + 3 *(i - 1)).EntireColumn.Copy Sheets("七").Cells(1,2 + (i - 1)).EntireColumn Sheets("七").Cells(1, i + 1).Value = 2012 + i Next i 设置回圈，以i=1为例，将原工作表第二栏，复制到工作表「七」的第二栏，接着於工作 表「七」储存格(1,B)输入2013（2012+1），读者有兴趣可自行预想当i=2、3、4时，程式 会如何执行，便能理解这里程式设计的用意。 Sheets("七").Select Columns().ColumnWidth= 12: Columns("A").ColumnWidth = 18 设置工作表「七」的格式，先将所有栏寛定为12，再单独将A栏的栏寛定为18，Select类 似於滑鼠右键的动作，表示以工作表「七」作为目前工作表，「:」并无程式意义，只是 单纯将两行程式码合并於一行。 七、执行结果，非常完美！ 这一节等於是将前四章所累积的程式功力，一次展现在取得公开财报的实务案例上。从这 个范例可以看出，单单「QueryTables」这一招就很好用了，但不同网站的结构不同，在 属性设置必须跟着变化，另外「QueryTables」也有个先天性的限制，它在取得网页比较 没有针对性，筛选机制是表格，这个范例刚好可以利用表格选取所需要的内容，但即便如 此，下载的资料仍然再经过一番删减复制，所幸Excel在这方面原本就非常强大，即便不 写VBA程式，如果资料量不大，纯Excel手工整理也不会太麻烦。 本文内容取自《人人做得到的网路资料整理术》，博客来书店网址： http://www.books.com.tw/products/0010775391。 延伸阅读： Excel如何取得公开发行公司财务报表 http://www.b88104069.com/archives/4312 Excel如何阅读网站新闻财经头条 http://www.b88104069.com/archives/4139 TibaMe | 会计人的Excel小教室：高效率工作心法！ https://www.tibame.com/offline/excel_accountant -- 周末，我们继续Excel：=>21.心得=>5.其他=>3.office 会计人的Excel小教室： https://www.facebook.com/acctexcel --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.20.97.153 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Accounting/M.1528603683.A.58D.html