Question

求指教VB中MSchart控件导入excel数据并画图的程序

Private Sub Form_Load()On Error Resume NextSet xlapp = GetObject("Excel.Application") '打开正在运行的Excel副本If Err.Number <> 0 ThenSet xlapp = CreateObject("Excel.Application") '创建一个Excel副本ExcelWasNotRunning = TrueEnd IfErr.Clear'打开当前目录下的Excel工作簿等级.xlsxSet xlbook = xlapp.Workbooks.Open("D:\界面\等级.xlsx")'以A1作为当前区域的开头,读取该区域的地址Set xlrng = xlbook.Worksheets(1).Range("A1").CurrentRegionEnd SubPrivate Sub Command1_Click()Dim thisarray(1 To 3, 1 To 3)Dim i As IntegerDim level2, level3 As SingleintRows = 3For i = 1 To intRows '获得行标题(名称)thisarray(i, 1) = CStr(xlrng.Range("A" & i + 1).Value) '获得其它三列数值字段level2 = xlrng.Range("B" & i + 1).Value ' 读取二级次数level3 = xlrng.Range("C" & i + 1).Value '读取三级次数thisarray(i, 2) = level2thisarray(i, 3) = level3MSChart1.ChartData = thisarrayNextEnd Sub这是参照网上代码写的，一运行就说thisarray(i, 1) = CStr(xlrng.Range("A" & i + 1).Value) “需要对象”，不知道怎么回事，求大神指教

Answer 1

首先将你的代码修改如下：

Private Sub Command1_Click()

On Error Resume Next
Set xlapp = GetObject("Excel.Application")  '打开正在运行的Excel副本
If Err.Number <> 0 Then
Set xlapp = CreateObject("Excel.Application") '创建一个Excel副本
ExcelWasNotRunning = True
End If
Err.Clear '打开当前目录下的Excel工作簿等级.xlsx
Set xlbook = xlapp.Workbooks.Open("D:\界面\等级.xls") '以A1作为当前区域的开头,读取该区域的地址
Set xlrng = xlbook.Worksheets(1).Range("A1").CurrentRegion

Dim thisarray(1 To 3, 1 To 3)
Dim i As Integer
Dim level2, level3 As Single

intRows = 3
For i = 1 To intRows '获得行标题(名称)
thisarray(i, 1) = CStr(xlrng.Range("A" & i + 1).Value) '获得其它三列数值字段
level2 = xlrng.Range("B" & i + 1).Value ' 读取二级次数
level3 = xlrng.Range("C" & i + 1).Value '读取三级次数
thisarray(i, 2) = level2
thisarray(i, 3) = level3
MSChart1.ChartData = thisarray
Next

 

xlbook.Close
Set xlbook = Nothing
xlapp.Quit

End Sub

 

然后

    在vb中点击工程-引用-Microsoft excel library，部件中选择Microsoft chart control ，d盘界面文件夹里新建等级.xls文件，在A1:C4 单元格中随便输入如下，分别如下图

 

 

 

 

最后运行代码，即可运行如下