Ошибка времени выполнения 1004, Определенная заявленная или объектная ошибка

Question

Я написал код vbscript, чтобы добавить диаграмму на стр. 1 из excel, для которой источник из другого листа того же 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» - это название листа, на котором выбраны данные.

Answer 1

Не следует ли линия

ActiveChart.SetSourceData Source:=Sheets("Shname").Range("G2:H2001") 

быть

ActiveChart.SetSourceData Source:=Sheets(Shname).Range("G2:H2001") 

, так как вы хотите использовать переменную Shname, а не просто лист с именем "Shname"

Надеется, что это помогает!