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