[VBA ] Access 2013 Getobject錯誤
各位好
目前使用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
推
01/29 16:45, , 1F
01/29 16:45, 1F
→
01/29 18:39, , 2F
01/29 18:39, 2F
討論串 (同標題文章)