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

看板Visual_Basic作者 (睡覺要關呼叫器)時間18年前 (2007/06/04 15:26), 編輯推噓2(2推 0噓 0→)
留言2則, 2人參與, 最新討論串1/1
目前在玩的功能是連續對同一個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
推
06/05 06:20, , 1F
錯誤點在哪，就是哪一個物件為null值
06/05 06:20, 1F
推
06/05 09:22, , 2F
.SeriesCollection.NewSeries 所以就是新增series出錯??
06/05 09:22, 2F
‣ 更多 timohu 的文章
文章代碼(AID): #16OxwQY5 (Visual_Basic)