表格界面，填写股票代码后点击“下载报表”。
即下载财报到f盘，（此处需手动先打开下载好的文件）选择好要分析的科目，然后贴数据到主页面并生成折线图，可手动挪动图表行改分析的科目，嘻嘻。
以下为两个按钮的代码。
Sub dl()Dim code As StringDim kemu As Stringcode = Range("j3").ValueDim H, SSet H = CreateObject("Microsoft.XMLHTTP")H.Open "GET", "http://money./corp/go.php/vDOWN_BalanceSheet/displaytype/4/stockid/" & code & "/ctrl/all.phtml", False '网络中的文件URLH.sendSet S = CreateObject("ADODB.Stream")S.Type = 1S.OpenS.write H.ResponsebodyS.savetofile "f:\" & code & ".xls", 2 '本地保存文件名S.CloseEnd SubSub Button3_Click()'' Button3_Click Macro'Dim code As StringDim kemu As IntegerDim id As Stringcode = Range("j3").Valuekemu = Range("g4").ValueWorkbooks("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 WithEnd SubSub test()Dim a As IntegerDim b As Stringa = 1b = a + 1Debug.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 WithEnd Sub
附上文件链接：链接: /s/1qKIAHnZdl2S5wyOtUTuHlA 提取码: 9a4y
如果觉得《用vba创建图表分析上市公司财报》对你有帮助，请点赞、收藏，并留下你的观点哦！
