[LISP程序]：程序测试。。。

jtybzl

大家帮忙看看，这两个程序可以说模仿的差不多了
但是excel的程序怎么就是不能新建一个文档呢？
各位高手帮忙找找原因，我初步认为问题出在
(setq docs (vla-get-Documents MSX))
这种用法是不是与word的不同啊？究竟该怎样能达到与另一个word同样效果的程序？

jtybzl

请大家将两个程序中的路径,分别按照电脑中实际的EXCEL.OLB及MSWORD.OLB的路径来做些更正.方法是,先搜索一下这两个文件的位置.

jtybzl

怎么没人帮忙啊？为什么提到类似问题，老是没人回答？是什么原因？

wwwchard

是因为你的问题放在附件中，大家觉得还要下载，很麻烦！
如果不是很大，直接粘贴上
因为大家除了在这儿浏览看看，还有工作要做，稍不是很感兴趣的就过去了！
个人猜测!

秋枫

是的。

efan2000

因为Excel中没有Document对象，所以调用失败。修改后的程序如下：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:exc()
   
5. (vl-load-com)
   
6. (vlax-import-type-library
   
7.         ;:tlb-filename "d:/Program Files/microsoft office/office10/XL5EN32.OLB";XL5CHS32.OLB
   
8.         :tlb-filename "d:/Program Files/microsoft office/office/EXCEL9.OLB"
   
9.         :methods-prefix "msxm-"
   
10.         :properties-prefix "msxp-"
    
11.         :constants-prefix "msxc-")
    
12.   (setq MSX (vlax-get-object "Excel.Application"))
    
13.   (setq MSX (vlax-create-object "Excel.Application"))
    
14.   (vla-put-visible MSX :vlax-true)
    
15.   (setq docs (vlax-get-property MSX 'workbooks)) '修改的部分在这里
    
16.   (setq doc (msxm-add docs))
    
17.   )
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:exc()<br /> (vl-load-com)<br /> (vlax-import-type-library<br />         ;:tlb-filename "d:/Program Files/microsoft office/office10/XL5EN32.OLB";XL5CHS32.OLB<br />         :tlb-filename "d:/Program Files/microsoft office/office/EXCEL9.OLB"<br />         :methods-prefix "msxm-"<br />         :properties-prefix "msxp-"<br />         :constants-prefix "msxc-")<br />   (setq MSX (vlax-get-object "Excel.Application"))<br />   (setq MSX (vlax-create-object "Excel.Application"))<br />   (vla-put-visible MSX :vlax-true)<br />   (setq docs (vlax-get-property MSX 'workbooks)) '修改的部分在这里<br />   (setq doc (msxm-add docs))<br />   )<br />   [/FONT]<br />