需要修復Excel VBA：指定的維度對當前圖表類型無效

Question

我的問題如上所述，指定的維度對當前圖表類型無效。

但是，這是奇怪的事情，我在兩個不同的文件上使用相同的代碼，只有兩個文件中的一個不能工作，這是在Excel 2010上完成的。例如，我在文件a.xlsm中使用它工作罰款做它應該做的事情。但是，當我在文件b.xlsm（從.csv文件轉換）中使用它時，我不斷收到此錯誤，並且運行時錯誤爲'-2147352565（8002000b）'。

我的代碼如下：

Sub AddChartObject() 
Dim Cht As ChartObject 

Set Cht = ActiveSheet.ChartObjects.Add _ 
    (Left:=300, Width:=375, Top:=100, Height:=225) 
Cht.Chart.SetSourceData Source:=Sheets("Sheet1").Range("B2:B10") 
Cht.Chart.ChartType = xlXYScatterLines 

Worksheets(1).ChartObjects(1).Activate 
ActiveChart.HasTitle = True 
ActiveChart.ChartTitle.Text = "Testing" 

End Sub 

我發現它從這裏：http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html#topofpage

和錯誤不斷指向這一行

myChtObj.Chart.SetSourceData Source:=Sheets("Sheet1").Range("B2:B10") 

還有另外一個類似的問題在這裏的網站VBA Excel: The specified dimension is not valid for the current chart type我確實嘗試過發佈的解決方案，但它並沒有真正起作用，所以如果有人可以將我指向右側方向。

Answer 1

如果您使用excel打開了一個csv文件，表格名稱可能不是「Sheet1」，而是csv文件的文件名。嘗試

Source:=Sheets(1).Range("B2:B10")