lisp小白请大神指点，lisp如何获得excel中的指定的表格

孤独人

lisp小白请大神指点，lisp如何获得excel中的指定的表格？例如有一张表格叫“工作量表三”，请问怎么用lisp来获得这个表？

Gu_xl

1. (defun getsheet        (sheetname / xlsapp sheets sheet)
   
2.   (if (not (VL-CATCH-ALL-ERROR-P
   
3.              (setq xlsapp (VL-CATCH-ALL-APPLY
   
4.                             'vlax-get-or-create-object
   
5.                             '("Excel.Application")
   
6.                           )
   
7.              )
   
8.            )
   
9.       )
   
10.     (if        (not (VL-CATCH-ALL-ERROR-P
    
11.                (setq sheets (VL-CATCH-ALL-APPLY
    
12.                               'vlax-get-property
    
13.                               (list xlsapp 'Sheets)
    
14.                             )
    
15.                )
    
16.              )
    
17.         )
    
18.       (if (not (VL-CATCH-ALL-ERROR-P
    
19.                  (setq sheet (VL-CATCH-ALL-APPLY
    
20.                                'vlax-get-property
    
21.                                (list sheets 'item sheetname)
    
22.                              )
    
23.                  )
    
24.                )
    
25.           )
    
26.         (progn
    
27.           (VL-CATCH-ALL-APPLY
    
28.             'vlax-invoke-method
    
29.             (list sheet 'Activate)
    
30.           ) ;_ 激活该表单
    
31.           sheet ;_ 返回值
    
32.         )
    
33.       )
    
34.     )
    
35.   )
    
36. )

(defun getsheet        (sheetname / xlsapp sheets sheet)<br />   (if (not (VL-CATCH-ALL-ERROR-P<br />              (setq xlsapp (VL-CATCH-ALL-APPLY<br />                             'vlax-get-or-create-object<br />                             '("Excel.Application")<br />                           )<br />              )<br />            )<br />       )<br />     (if        (not (VL-CATCH-ALL-ERROR-P<br />                (setq sheets (VL-CATCH-ALL-APPLY<br />                               'vlax-get-property<br />                               (list xlsapp 'Sheets)<br />                             )<br />                )<br />              )<br />         )<br />       (if (not (VL-CATCH-ALL-ERROR-P<br />                  (setq sheet (VL-CATCH-ALL-APPLY<br />                                'vlax-get-property<br />                                (list sheets 'item sheetname)<br />                              )<br />                  )<br />                )<br />           )<br />         (progn<br />           (VL-CATCH-ALL-APPLY<br />             'vlax-invoke-method<br />             (list sheet 'Activate)<br />           ) ;_ 激活该表单<br />           sheet ;_ 返回值<br />         )<br />       )<br />     )<br />   )<br /> )

被承包的东子

我也不会，但是我想通过论坛搜索，应该能找到答案

yxp

不错 G 版函数直接返回工作表对象，我再画蛇添足一下：

;;调用 G 版函数获取 工作表 sheet 对象，如果当前打开的 excel 中包含了 sheet1
(setq sheet (getsheet "sheet1"))
;;获取工作表 cell 对象
(setq cell (vlax-get-property sheet 'cells))
;;获取 C4单元格 对象
(setq RangC4 (vlax-get-property cell 'Range "C4"))
;;获取 C4单元格对象的 value 属性
(setq value (vlax-get-property RangC4 'value))
;;转换变体数据为字符串
(vlax-variant-value value)

孤独人

Gu_xl 发表于 2018-5-31 16:55

谢谢版主！

孤独人

yxp 发表于 2018-5-31 20:40
不错 G 版函数直接返回工作表对象，我再画蛇添足一下：

;;调用 G 版函数获取 工作表 sheet 对象，如果当 ...

谢谢版主！

ba871021

如何调用命令

水吉空

Gu_xl 发表于 2018-5-30 21:41

版主，请问下如何实现读取指定表格的行列数？

yxp

;;获取指定工作表的行数
(defun test()
(setq sheet (getsheet "sheet1"))
;;下面将依次获取工作表 sheet 对象的 UsedRange.Rows.Count 属性
(setq usr (vlax-get-property sheet 'UsedRange))
(setq row (vlax-get-property usr 'Rows))
(setq n (vlax-get-property row 'Count))
)
;;获取最后列数用UsedRange.columns.count

孤独人

yxp 发表于 2018-6-7 12:41
;;获取指定工作表的行数
(defun test()
(setq sheet (getsheet "sheet1"))

果然是大神，学习了。