作者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