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