CObject调用Excel例子 VFB

yjgyjgg 2021-7-14 16246

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

因国家互联网安全管理要求,关闭回帖功能。大家需要留言,请使用【勇芳软件客服】即时联系勇芳点此打开->>勇芳软件客服
返回
联系勇芳
发新帖 搜索 反馈 回顶部