2、用VB打開Excel，比如
Dim appExcel作為對象
Dim wbkName作為對象
Dim對象名稱
Dim strSavePath為字符串
創建Excel文件
10 Set app Excel = CreateObjec(" Excel。應用”)
20 Set wbk name = app excel . workbooks . add
30 Set sht name = wbk name . worksheets(1)
40 wbkName.worksheets(1)。Name = "Sheet1 "
50 appExcel。範圍(" A1 ")。Value = "渠道"
60 strSavePath = App。路徑與路徑。" \Test.xls "
70 wbkName。另存為strSavePath
80 appExcel .退出
3.可以使用line語句或MSChar控件，MS CHAR。Chartdata = DBL DATA1 _ 2 '二維數組，註意坐標是(y，x)。