作者roaerwang (YKWIA)
看板Visual_Basic
標題[VBA ] Access 2013 Getobject錯誤
時間Tue Jan 29 15:58:28 2013
各位好
目前使用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
1F：推 ClubT:你看看 xlPie 的值是多少? 01/29 16:45
2F：→ roaerwang:5。但改成整數一樣會出現91錯誤。 01/29 18:39