XD::Excel:setActiveSheet 将指定sheet表格设为当前表格

牢固

1. ;;将sheet表格设为当前表格,成功返回 T,否则返回nil
   
2. (defun XD::Excel:setActiveSheet (name / rtn sheets xlapp)
   
3.   (or
   
4.     **XD::Excel**
   
5.     (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))
   
6.   )
   
7.   (if (not (VL-CATCH-ALL-ERROR-P (setq sheets (VL-CATCH-ALL-APPLY 'vlax-get-property
   
8.                                                                   (list **XD::Excel** "sheets")
   
9.                                               )
   
10.                                  )
    
11.            )
    
12.       )
    
13.     (vlax-for sh sheets (if (= (strcase (vlax-get-property sh "Name"))
    
14.                                (strcase Name)
    
15.                             )
    
16.                           (progn
    
17.                             (vlax-invoke-method sh "Activate")
    
18.                             (setq rtn t)
    
19.                           )
    
20.                         )
    
21.     )
    
22.   )
    
23.   rtn
    
24. )

;;将sheet表格设为当前表格,成功返回 T,否则返回nil<br /> (defun XD::Excel:setActiveSheet (name / rtn sheets xlapp)<br />   (or<br />     **XD::Excel**<br />     (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))<br />   )<br />   (if (not (VL-CATCH-ALL-ERROR-P (setq sheets (VL-CATCH-ALL-APPLY 'vlax-get-property<br />                                                                   (list **XD::Excel** "sheets")<br />                                               )<br />                                  )<br />            )<br />       )<br />     (vlax-for sh sheets (if (= (strcase (vlax-get-property sh "Name"))<br />                                (strcase Name)<br />                             )<br />                           (progn<br />                             (vlax-invoke-method sh "Activate")<br />                             (setq rtn t)<br />                           )<br />                         )<br />     )<br />   )<br />   rtn<br /> )

kkt123

:o;;;;:o;P;;;