作者timohu (睡觉要关呼叫器)
看板Visual_Basic
标题[VB6 ] VB对EXCEL存资料画图出现的错误码91
时间Mon Jun 4 15:26:17 2007
目前在玩的功能是连续对同一个EXCEL资料存入资料、画图
按按钮一下，程式会增加两笔X，Y的资料
并利用这些资料在同一个Chart中画一个XY曲线图
(开新的EXCEL後档名都是BookX，因为我还没进行存档)
但是当我在画图的时候，（按按钮的时候）
偶而会发生错误(通常都不会发生错误，但有时候就会出现0.0)
err.Number:91
err.Description:没有设定物件变数或 With 区块变数
在下面这行：
ws.Application.ActiveChart.SeriesCollection.NewSeries
以下是我新增XY曲线(ChartType = 75)的部分程式码
For i = 1 To No
chartSer = No * (CNT - 1) + i
IntPosV$ = 2 * i
IntPosI$ = 2 * i - 1
lineX = "=Sheet1!R" & CStr(CNT*4) & "C" & IntPosI & ":R" & Area & "C" &
IntPosI
lineY = "=Sheet1!R" & CStr(CNT*4) & "C" & IntPosV & ":R" & Area & "C" &
IntPosV
ws.Application.ActiveChart.SeriesCollection.NewSeries
ws.Application.ActiveChart.SeriesCollection(chartSer).XValues = lineX
ws.Application.ActiveChart.SeriesCollection(chartSer).Values = lineY
Next i
ps.会是因为这段程式前後有一些With XXX, End With的东西而影响吗？
(贴上来这段程式法内无任何With的叙述，也就是在这段之前就都已经End With了)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.87.152.130
1F：推 fumizuki:错误点在哪，就是哪一个物件为null值 06/05 06:20
2F：推 timohu:.SeriesCollection.NewSeries 所以就是新增series出错?? 06/05 09:22