R语言抓取财务报表数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

#代码的部分描述

##  symbol:股票代码

##  type： 报表类型。BS为资产负债表；PS为利润表；CF为现金流量表

##  file:  存储下载文件的地址。比如file="D://"

1. # 1. 从新浪财经网上获取财务套表函数
   
2. getsheets <- function(symbol,type,file){
   
3.   pre="http://money.finance.sina.com.cn/corp/go.php/vDOWN_";
   
4.   mid="/displaytype/4/stockid/";
   
5.   end="/ctrl/all.phtml";
   
6.   
   
7.   if(type=="BS"){
   
8.     url=paste(pre,"BalanceSheet",mid,symbol,end,sep="");
   
9.     destfile=paste(file,"BalanceSheet_",symbol,".xls",sep="");
   
10.   }
    
11.   if(type=="PS"){
    
12.     url=paste(pre,"ProfitStatement",mid,symbol,end,sep="");
    
13.     destfile=paste(file,"ProfitStatement_",symbol,".xls",sep="");
    
14.   }
    
15.   if(type=="CF"){
    
16.     url=paste(pre,"CashFlow",mid,symbol,end,sep="");
    
17.     destfile=paste(file,"CashFlow_",symbol,".xls",sep="");
    
18.   }
    
19.   download.file(url, destfile);
    
20. }
    
21. 
    
22. # 下载000065的资产负债表，并存放在D盘
    
23. getsheets("000065","BS","D://")

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏9 回帖

关键词：财务报表数据 财务报表 报表数据 R语言 symbol 财务 R语言 抓取 财务数据

谢谢分享

网上出的是原始的报表吗？
我咋看着都是出的审计报告啊。。。。
最近都是一个个把数据复制出来的。
~累残了

三大财务报表知道了，那怎么抓取财务指标数据啊？

楼主你好，能不能把财务报表不下载下来，直接在R中读取。

怎么没设置字符集啊？

顺利运行，感谢分享，可以少走弯路