2，用VB打開Excel，如
Dim appExcel As Object
Dim wbkName As Object
Dim shtName As Object
Dim strSavePath As String
'Create the Excel file
10 Set appExcel = CreateObjec("Excel.Application")
20 Set wbkName = appExcel.workbooks.Add
30 Set shtName = wbkName.worksheets(1)
40 wbkName.worksheets(1).Name = "Sheet1"
50 appExcel.Range("A1").Value = "Channel"
60 strSavePath = App.Path & "\Test.xls"
70 wbkName.SaveAs strSavePath
80 appExcel.quit
3,可以用line語句或者用MSChar控件，MSchar.ChartData = dblData1_2'二維數組，註意坐標是（y，x）。