想利用EXCEL中生成一个图形（2维），横轴为电流值，纵轴为电压值，不知道如何写入数据，请各位帮忙
下面是我的部分程序：
With ct.Chart
.ChartType = xlXYScatterLines '散点折线图类型
.SeriesCollection.NewSeries
For i = 1 To 20
RowData_Voltage_Value = Chr(66) & CInt(2 + i) '''''B3 开始
RowData_Current_Value = Chr(69) & CInt(2 + i) ''''''E3 开始
.seriesconnlection.NewSeries
.SeriesCollection(i).XValues = xllSheet.Range(RowData_Voltage_Value).Value
.SeriesCollection(i).Values = xllSheet.Range(RowData_Current_Value).Value
MsgBox CStr(xllSheet.Range(RowData_Voltage_Value).Value)
Next i
End With

以上： xllSheet.Range(RowData_Voltage_Value).Value，xllSheet.Range(RowData_Current_Value).Value
数据没有错，就是赋值时没有值（.SeriesCollection(i).XValues 这个出错了），想问问大家如何写入数据？

现在存在的问题就是图形上没有数据点，请帮帮忙！

上面的循环 我的意思是想每循环一次，在图上生成一个点 point（电压值，电流值）
错在赋值上面！请各位高手相助，

.seriesconnlection.NewSeries
.SeriesCollection(i).XValues = xllSheet.Range(RowData_Voltage_Value).Value
.SeriesCollection(i).Values = xllSheet.Range(RowData_Current_Value).Value
不支持对象属性！

修改后：
With ct.Chart
.ChartType = xlXYScatterLines '散点折线图类型
.SeriesCollection.NewSeries
For i = 1 To 19
RowData_Voltage_Value = Chr(66) & CInt(2 + i) '''''B3 开始
RowData_Current_Value = Chr(69) & CInt(2 + i) ''''''E3 开始
RowData_Voltage_Next_Value = Chr(66) & CInt(3 + i)
RowData_Current_Next_Value = Chr(69) & CInt(3 + i)
.SeriesCollection.NewSeries ''''增加一次投点,画条直线
'''''''''''array(电压起点，电压终点)
First_Voltage = xllSheet.Range(RowData_Voltage_Value).Value
Second_Voltage = xllSheet.Range(RowData_Voltage_Next_Value).Value
.SeriesCollection(i).XValues = Array(First_Voltage, Second_Voltage)

''''''''''''array(电流起点，电流终点)
First_Current = xllSheet.Range(RowData_Current_Value).Value
Second_Current = xllSheet.Range(RowData_Current_Next_Value).Value
.SeriesCollection(i).Values = Array(First_Current, Second_Current)
Next i
End With
不会报错，但是图形上没数据。First_Voltage，Second_Voltage，First_Current，Second_Current都真确得到了数据

呵呵 我明白了怎么操作！
With ct.Chart
.ChartType = xlXYScatterLines '散点折线图类型
.SeriesCollection.NewSeries
For i = 1 To 20
RowData_Voltage_Value = Chr(66) & CInt(2 + i) '''''B3 开始
RowData_Current_Value = Chr(69) & CInt(2 + i) ''''''E3 开始
.SeriesCollection.NewSeries''''''''''''''''''''''''''''''''这里出错了点错，还有点别的地方。所’’‘以’修改来修改去还是不能成功
.SeriesCollection(i).XValues = xllSheet.Range(RowData_Voltage_Value).Value
.SeriesCollection(i).Values = xllSheet.Range(RowData_Current_Value).Value
MsgBox CStr(xllSheet.Range(RowData_Voltage_Value).Value)
Next i
End With