Excel:WorkBooks

Free-Lancer

1. (defun Excel:WorkBooks (symVar UnHide / Rtn)
   
2.   (if (not (VL-CATCH-ALL-ERROR-P
   
3.              (setq Rtn (VL-CATCH-ALL-APPLY
   
4.                          'vlax-get-or-create-object
   
5.                          '("Excel.Application")
   
6.                        )
   
7.              )
   
8.            )
   
9.       )
   
10.     (progn
    
11.       (set symVar
    
12.            (vlax-get-property Rtn 'WorkBooks)
    
13.       )
    
14.       (if UnHide
    
15.         (vla-put-visible Rtn 1)
    
16.         (vla-put-visible Rtn 0)
    
17.       )
    
18.       (eval symVar)
    
19.     )
    
20.   )
    
21. )

(defun Excel:WorkBooks (symVar UnHide / Rtn)<br />   (if (not (VL-CATCH-ALL-ERROR-P<br />              (setq Rtn (VL-CATCH-ALL-APPLY<br />                          'vlax-get-or-create-object<br />                          '("Excel.Application")<br />                        )<br />              )<br />            )<br />       )<br />     (progn<br />       (set symVar<br />            (vlax-get-property Rtn 'WorkBooks)<br />       )<br />       (if UnHide<br />         (vla-put-visible Rtn 1)<br />         (vla-put-visible Rtn 0)<br />       )<br />       (eval symVar)<br />     )<br />   )<br /> )

(Excel:WorkBooks 'ExcelDoc t)
(vlax-invoke ExcelDoc 'Add)
(setq *Excel (vlax-get-property ExcelDoc 'Parent))
(vlax-get-property *Excel 'Path)

ysq101

大师~~~~~~来点中文如何？？？
文盲表示看不懂啊

st788796

vlxls- 函数库很丰富也很全面，包括表格互转程序，可以再总结几个最简单的连接函数，处理NET型表格的读入和写出

ayl1004

非ACAD vlx对象，没必要用vl-catch-all-apply
这些对象如果无法创建，那么返回的不是错误对象，而是nil。