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)。