您所在位置：主题：[讨论]求教高手指导VB获取excel图表动态数据源的方法
VBwadeyy
[专家分：0] 发布于 2013-02-23 11:54:00
Set charttest = xapp.Worksheets(1).ChartObjects.Add(25, 110, 400, 300)
charttest.Chart.ChartType = xlXYScatterSmoothNoMarkers
i = Sheets("sheet1").UsedRange.Columns.Count
charttest.Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:chr(64+i) " & 107), PlotBy _
:=xlColumns
如上图中range（。。。）里的红色语句，我就是想根据excel动态增加列的数据（比如已经有B列，C列数据，我继续增加列的数据，就会产生D列、。。。Z列），来绘制图表，但是选择数据源的时候，那块总是出错，求教高手指导应该如何编写
charttest.Chart.ChartType = xlXYScatterSmoothNoMarkers
i = Sheets("sheet1").UsedRange.Columns.Count
charttest.Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:chr(64+i) " & 107), PlotBy _
:=xlColumns
如上图中range（。。。）里的红色语句，我就是想根据excel动态增加列的数据（比如已经有B列，C列数据，我继续增加列的数据，就会产生D列、。。。Z列），来绘制图表，但是选择数据源的时候，那块总是出错，求教高手指导应该如何编写
