1004運行時錯誤

考慮以下代碼：1004運行時錯誤

Subroutine(ByRef objExcelApp As Object) 

Dim objChart As Excel.Chart<br> 
Dim objChartAdd As Excel.Chart 


Set objChart = Charts.Add 

'Plotting graph in excel 

'After completion 
Set objChart = Nothing 

End Sub

當我運行此代碼，一切都正常運行，而無需關閉應用程序，如果與其他報告類型重新運行 - 這在Set objChart = Charts.Add提示的錯誤1004

任何幫助，任何人都可以提供將不勝感激。

來源

2011-02-09 tangyorangesour

需要一些更多的細節。發佈的代碼不會編譯。標題應該像Sub YourSubName（...）Dim objChart ...
無效。 – 2011-02-10 11:41:42

你可以在UI中添加圖表嗎？我敢打賭，你處於無法添加圖表的狀態（選擇多個表格;工作簿未激活;保護範圍激活;等等）。

克里斯

來源

2011-02-09 22:48:57

嗨，克里斯，我啓動應用程序（第一次運行）並運行它 - 那時我可以在Excel工作表上生成圖表。當我重新運行它而未重新啓動應用程序時，該錯誤彈出，我對它非常陌生 - 請告訴我如何找出錯誤 - 是的，您是對的我無法添加圖表 – tangyorangesour 2011-02-10 09:56:56

1004運行時錯誤

回答

相關問題