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

katamoto

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

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

好久没来这里了，，

819534890

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

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

katamoto

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

819534890

katamoto 发表于 2015-12-30 13:29
能否增加一个指定名字的语句，比如加一个名字为abc123的工作表？

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

katamoto

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

另外再有个小问题问下，如何设置EXCEL某列的宽度？还有设置EXCEL某列都为文本格式