用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 Sub

Sub Button3_Click()
'
' Button3_Click Macro
'
Dim code As String
Dim kemu As Integer
Dim id As String
code = Range("j3").Value
kemu