怎么在VB中调用EXCEL里的图表？

Question

在做个小管理软件时，客户要求给他的表统计后用圆环形的图表显示出来，还要把他们的会议记录用WORD的形式显示出来，当然这些都是在这个小软件里实现的，不是去打开一个OFFICE应用程序的。
    我以前很少用这些对象，老师上课的时候还说这些东西都过时了不提了，结果我们哥几个接的第一个活就用到了这个内容了。拜托各位大哥了！
    哦，顺便说下那个WORD对象是怎么调的哈。能给个代码示例就给个代码吧。
    我的信箱是：[email protected]

Answer 1

这个应该不难啊。找找书
饼图，可以用mschart1啊。祝你赚钱多点。

Answer 2

' 引用 MS Excel X.0 Object Library
Private Sub Command1_Click()
    Dim xlsApp As excel.Application
    Dim xlsWB As excel.Workbook
    Dim xlsWS As excel.Worksheet
    Dim xlsChart As excel.Chart
    Dim x(1 To 4, 1 To 4) As Integer
    
    Set xlsApp = CreateObject("Excel.Application")
    Set xlsWB = xlsApp.Workbooks().Add
    Set xlsWS = xlsWB.Worksheets("sheet1")
    
    Randomize
    For i = 1 To 4
       For j = 1 To 4
          x(i, j) = 100 * Rnd()
       Next j
    Next i
    
    xlsApp.Range("a1:d4").Value = x
    xlsApp.Range("a1:d4").Select
    Set xlsChart = xlsApp.Charts.Add
    xlsApp.Visible = True
    xlsWS.SaveAs App.Path + "\test.xls"    xlsApp.Quit
    Set xlsApp = Nothing
    Set xlsWB = Nothing
    Set xlsWS = Nothing
    Set xlsChart = Nothing
    Set xlsWS = Nothing
End Sub

Answer 3

如果我机器上有office，人家机器上没有，或者版本比我低的话，会不会出错的啊？怎么能把它找出来一起打上包什么的呢？