我已经编写了vbscript代码来添加excel第1页中的图表,其中源代码来自同一个excel的其他表格,其名称为“CL.1.1”但是我得到上述错误可以任何人帮助错误的我的下面的代码。
Sub DispvsTime(Shname)
Sheets("Sheet1").Select
noofsheets = ActiveSheet.ChartObjects.Count
If noofsheets > 0 Then
ActiveSheet.ChartObjects.Select
ActiveSheet.ChartObjects.Delete
End If
Sheets("Sheet1").Pictures.Visible = False
ActiveSheet.Shapes.AddChart(1000, 420, 50, 500).Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Shname").Range("G2:H2001")
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "Displacement VS Time"
End Sub
这里“shname”是选择数据的工作表的名称。
答案 0 :(得分:0)
不应该行
ActiveChart.SetSourceData Source:=Sheets("Shname").Range("G2:H2001")
是
ActiveChart.SetSourceData Source:=Sheets(Shname).Range("G2:H2001")
因为您想要使用变量Shname而不仅仅是名为“Shname”的工作表
希望这有帮助!