用vba创建图表分析上市公司财报

表格界面，填写股票代码后点击“下载报表”。

即下载财报到f盘，（此处需手动先打开下载好的文件）选择好要分析的科目，然后贴数据到主页面并生成折线图，可手动挪动图表行改分析的科目，嘻嘻。

以下为两个按钮的代码。

Sub dl()
Dim code As String
Dim kemu As String
code = Range("j3").Value
Dim H, S
Set H = CreateObject("Microsoft.XMLHTTP")
H.Open "GET", "http://money.finance.sina.com.cn/corp/go.php/vDOWN_BalanceSheet/displaytype/4/stockid/" & code & "/ctrl/all.phtml", False '网络中的文件URL
H.send
Set S = CreateObject("ADODB.Stream")
S.Type = 1
S.Open
S.write H.Responsebody
S.savetofile "f:\" & code & ".xls", 2  '本地保存文件名
S.Close
End SubSub Button3_Click()
'
' Button3_Click Macro
'
Dim code As String
Dim kemu As Integer
Dim id As String
code = Range("j3").Value
kemu = Range("g4").Value
Workbooks("F:\" & code & ".xls").Sheets(code).Range("A1:CQ70").Copy Range("A15")
id = kemu + 14Dim oChart As ChartDim oWK As WorksheetDim oSeries As SeriesDim oChartObject As ChartObjectSet oWK = Excel.Worksheets(1)'先创建一个空白的图形壳Set oChartObject = oWK.ChartObjects.Add(100, 0, 500, 300)Set oChart = oChartObject.Chart'对空白的图形进行设置With oChart'默认创建的是两个系列的散点图.ChartWizard Source:=oWK.Range("b" & id & ":cq" & id), gallery:=xlXYScatterLines, PlotBy:=xlColumns, HasLegend:=True, _Title:=id, CategoryTitle:="X", ValueTitle:="Y"For Each oSeries In .SeriesCollectionoSeries.DeleteNextSet oSeries = .SeriesCollection.NewSeriesWith oSeries.Name = id.Values = oWK.Range("b" & id & ":cq" & id).XValues = oWK.Range("b15:cq15")End WithEnd With
End Sub
Sub test()
Dim a As Integer
Dim b As String
a = 1
b = a + 1
Debug.Print (b)
End SubSub char()'创建内嵌的图表Dim oChart As ChartDim oWK As WorksheetDim oSeries As SeriesDim oChartObject As ChartObjectSet oWK = Excel.Worksheets(1)'先创建一个空白的图形壳Set oChartObject = oWK.ChartObjects.Add(100, 0, 500, 300)Set oChart = oChartObject.Chart'对空白的图形进行设置With oChart'默认创建的是两个系列的散点图.ChartWizard Source:=oWK.Range("a1:d2"), gallery:=xlXYScatterLines, PlotBy:=xlColumns, HasLegend:=True, _Title:="这是一个散点图", CategoryTitle:="X", ValueTitle:="Y"For Each oSeries In .SeriesCollectionoSeries.DeleteNextSet oSeries = .SeriesCollection.NewSeriesWith oSeries.Name = "X-Y".Values = oWK.Range("a2:d2").XValues = oWK.Range("a1:d1")End WithEnd With
End Sub

附上文件链接：链接: https://pan.baidu.com/s/1qKIAHnZdl2S5wyOtUTuHlA 提取码: 9a4y

用vba创建图表分析上市公司财报相关推荐

菜鸟读财报，如何从上市公司财报中挖情报？--微博转载
[菜鸟读财报,如何从上市公司财报中挖情报?]❶财务数据重点看主营业务收入而不是利润.❷收入.利益要按不同业务类型分别加以分析.❸现金周转情况.折旧情况.年终拥有现金数量等指标同样值得关注.❹纵向.横向 ...
这个程序员为了买股票，直接分析了上市公司财报，还把代码开源了
项目名称:StockAnalysisSystem 项目作者:SleepySoft 开源许可协议:Apache-2.0 由于该系统超出了小编的知识范畴,以下内容均摘自该项目 Readme. 当初写这个程 ...
如何阅读一份上市公司财报 - 财报阅读入门
财报是股票的投资说明书,是企业的体检报告,通过阅读财报评估股票价值,并根据财报数据判断企业健康水平和生存能力.‍ 巴菲特:你必须了解财务报告,它是企业与外界交流的语言,一种完美无瑕的语言.只有你愿 ...
下载上市公司财报并可视化某科目
先上链接链接:https://pan.baidu.com/s/1U_q8U1rDFKRueA8_hytfPw 提取码:szcw 1.输入相应股票代码后点击下载财报,存放至f盘 2.选择需要展示的指 ...
【安全资讯】全球上市公司财报中“网络安全”的提及次数出现显著增长
来源| 安全内参发布时间|2021-09-07 面对如火如荼的数字化转型浪潮与随之而来的攻击威胁泛滥,网络安全已经成为众多企业的关注重点.根据国际数据与分析厂商GlobalData发布的数据,自20 ...
使用八爪鱼采集器抓取上市公司财报,一次1万条
虽然八爪鱼自带了模板,但是我还是不介意用模板,因为没几个免费的模板,自己动动手指就能解决的事就别掏银子了,钱多的请绕道~~ 新建--自定义任务--把网址粘贴到下图2的框里面--保存设置注意,免费版的 ...
【伍】学好财报是选出好公司的关键
文章目录 1.怎样才能越花越有钱 2.财务报表 2.1 财务报表简介 2.2 财.务.报.表到底是什么?有什么用? 2.2.1 安全性--通过资产负债率来判断 2.2.2 竞争力--通过应付预收减去应 ...
《手把手教你读财报》读后感
2019年计划里有这一页,每周读20页书,写一篇读后感.自己挖的坑,含泪都得填上.今天第一篇,书名<手把手教你读财报>,在炒股圈里知名度还是很高的,特点是将生涩的财务知识用通俗的文字表达, ...
除了财报数据，创始人价值观和基因是不是更重要？
作者 | 杨丽敏编辑 | Dave 董雯雪视觉 | 任染这是「禾穗HERS女性商学院」的第 067 篇原创近日瑞幸咖啡事件吸引了无数投资者关注,我们没有去深究瑞幸财报细节.因 ...

用vba创建图表分析上市公司财报

用vba创建图表分析上市公司财报相关推荐

最新文章

热门文章