[讨论]：有谁知道excel的对象结构？对每一层结构我该用什么函数来获得下一层对象？

lsj60912

比如下面：

2. [font="宋体"]
   
3. (defun init-excel (/ excel-app wb-collection workbook sheets sheet1)
   
4.   (setq excel-app (vlax-get-or-create-object "excel.application"))
   
5.   (setq wb-collection (vlax-get-property excel-app "workbooks"))
   
6.   (setq workbook (vlax-invoke-method wb-collection 'add))
   
7.   (setq sheets (vlax-get-property workbook 'sheets))
   
8.   (setq sheet1 (vlax-get-property sheets 'item 1))
   
9.   (setq *excel-cells* (vlax-get-property sheet1 'cells))
   
10.   (vlax-put-property excel-app 'visible 1)
    
11. )[/font]

[font="宋体"]<br /> (defun init-excel (/ excel-app wb-collection workbook sheets sheet1)<br />   (setq excel-app (vlax-get-or-create-object "excel.application"))<br />   (setq wb-collection (vlax-get-property excel-app "workbooks"))<br />   (setq workbook (vlax-invoke-method wb-collection 'add))<br />   (setq sheets (vlax-get-property workbook 'sheets))<br />   (setq sheet1 (vlax-get-property sheets 'item 1))<br />   (setq *excel-cells* (vlax-get-property sheet1 'cells))<br />   (vlax-put-property excel-app 'visible 1)<br /> )[/font]