運行時錯誤1004，應用程序定義或對象定義的錯誤

我已經寫了VBScript代碼來添加Excel的頁面1中的圖表，源代碼是來自其他名稱爲「CL.1.1」的Excel表格，但我得到上面的錯誤可以幫助我解決以下代碼中的錯誤。運行時錯誤1004，應用程序定義或對象定義的錯誤

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」是選擇數據的工作表的名稱。

來源

2013-05-10 surendra

應該不是線

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

是

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

，因爲你要使用的變量Shname而不是

希望這有助於名爲「Shname」只是一個表！

來源

2013-05-10 09:32:54 mortb

實際上，我只在我調試代碼的時候使用了shname，它給出了表格的正確名稱。 shname變量被替換爲實際值，但我仍然面臨着這個問題 – surendra 2013-05-10 10:01:34

運行時錯誤1004，應用程序定義或對象定義的錯誤

回答

相關問題