katamoto 发表于 2015-12-29 23:26:32

lisp 增加一个excel工作表怎么弄?

用lisp来操控EXCEL,已经有了sheet1、sheet2、sheet3三个工作表了,我现在加入一个sheet4怎么设置,
真没在网上找到多少语句来使用。

大侠如果有简单源码给我黏贴一部分就成,谢谢啦。

好久没来这里了,,

819534890 发表于 2015-12-30 10:54:35

(defun c:excel_add_sheet() ;增加一个sheet
(setq excelapp0 (vlax-get-object "Excel.Application"))
(setq activeworkbook0 (vlax-get-property excelapp0 'Activeworkbook))
(setq sheets (vlax-get-property activeworkbook0 'Sheets))
(setq newsheet (vlax-invoke-method sheets 'add))
)

katamoto 发表于 2015-12-30 13:29:12

能否增加一个指定名字的语句,比如加一个名字为abc123的工作表?

819534890 发表于 2015-12-30 14:40:38

katamoto 发表于 2015-12-30 13:29 static/image/common/back.gif
能否增加一个指定名字的语句,比如加一个名字为abc123的工作表?

这个容易,最后增加一行:
(vlax-put-property newsheet 'name "abc123")

katamoto 发表于 2015-12-30 22:14:28

谢谢819534890,已经在你的帮助下搞好了,一次成功。

另外再有个小问题问下,如何设置EXCEL某列的宽度?还有设置EXCEL某列都为文本格式
页: [1]
查看完整版本: lisp 增加一个excel工作表怎么弄?