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'显示工作薄名