[文章]：淺探VLISP使用EXCEL

舟自横

最初由 spshchen 发布
[B]舟大哥,看了你写的东西和网站的其他东西,现在对EXCEL还有一个问题,一直没有搞出来,就是对EXCEL文档的另存,不知道如何实现,希望指点一下, [/B]

[php]
呵呵..这个帖子又被翻出来拉..
(Defun hyxls-app-saveas (xlapp Filename / Rtn);;;另存EXCEL档...
   (if (null filename)
    (setq filename (strcat (getvar "dwgprefix") "XLS.XLS")))
   (if (null (wcmatch (setq filename (strcase Filename)) "*.XLS"))
   (setq filename (strcat filename ".XLS")))
   (if (findfile Filename)
    (vl-file-delete (findfile Filename))
    )
   (vlax-invoke-method
     (vlax-get-property Xlapp "ActiveWorkbook")
     "SaveAs"
     Filename
     msxl-xlNormal
     ""
     ""
     :vlax-False
     :vlax-False
     nil
     )
  (findfile Filename)
  )
[/php]

littlecong

ikozmos.com 上有VLXLS项目，提供了对excel的访问函数