Dim excel as CObject = createobject("Excel.application")'創建Excel對象，注如果在過程中使用不想操作完就關閉最好使用靜態變量static，防止自動析構

    excel.Put("visible" ,vbTrue)'顯示Excel程序

   dim workbook as CObject= excel.get("workbooks").run("Add")'新建一個工作薄

    excel.put("Range","a1","1111")'設置活動的工作表的A1單元格內容為1111

    excel.Get("sheets").Get("item" ,"sheet2").Put("range" ,"a2" ,"1111")'獲取Sheet2工作表，并設置A2單元格內容為1111

    Debug.Print workbook.get("name").tostring'顯示工作薄名