[VBA ] Access 2013 Getobject錯誤

[roaerwang (YKWIA)]

各位好

目前使用VBA欲在Access 2013表出呼叫Excel檔案（xlsx）
並再利用程式碼自動繪製圖表（圓餅圖）
寫了以下程式碼：

++++++++++++++++++++++++代碼開始++++++++++++++++++++++++++++++++

Public Sub CreateExcelPie(ByVal SourceObject As String)

'---------------------------------------------------------
'建立Excel圓餅圖。原則上是利用程式開啟Excel建立。
'SourceOject：xlsx檔的「完整路徑」，字串。
'---------------------------------------------------------

Dim CRTExcelFile As Object
Set CRTExcelFile = Nothing
Err.Clear

'---開啟檔案
Set CRTExcelFile = GetObject(SourceObject)

'---建立圖表。以下程式碼為直接利用Excel巨集錄製。
With CRTExcelFile.Application
    .ActiveSheet.Shapes.AddChart2(251, xlPie).Select
    .ActiveChart.SetSourceData Source:=.Range("TEMP_Month_月收入!$A:$B")

　　（中略）

End With

Set CRTExcelFile = Nothing

End Sub

結果其它地方輸入sourceobject引數（完整路徑）呼叫這個副程式
每次到了with下（反黃的那行）就會出現編號91的錯誤

請問這應該要怎麼解決？

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.135.111.93
推 ClubT:你看看 xlPie 的值是多少?
→ roaerwang:5。但改成整數一樣會出現91錯誤。