[VB6 ] VB對EXCEL存資料畫圖出現的錯誤碼91

[timohu (睡覺要關呼叫器)]

目前在玩的功能是連續對同一個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
推 fumizuki:錯誤點在哪，就是哪一個物件為null值
推 timohu:.SeriesCollection.NewSeries 所以就是新增series出錯??