【已解决】获取Excel文件的工作表名称的List

王鹏_pBZlo

求教: 怎么获取一个Excel文件的工作表名称列表,如附图
需要得到(list "Face" "In-page" "水泵" "中央冷却器" ... ...)


(defun sheetname-list(excelfile / xl wbs wb shs each rtn)
        (setq xl (vlax-get-or-create-object "Excel.Application"))
        (setq wbs (vlax-get-property xl "WorkBooks"))
        (setq wb (vlax-invoke-method wbs "open" excelFile))
        (setq shs (vlax-get-property wb "Sheets"))
        (vlax-for each shs  (setq Rtn (append rtn (list (vlax-get-property each "Name")))))
        (vlax-invoke-method wb "Close")
        (vlax-invoke-method xl "Quit")
        (vlax-release-object xl)
        rtn
)

newer

XDRX API
(xdex_book_getallsheet "d:\\abc.xlsx")

王鹏_pBZlo

newer 发表于 2019-3-20 13:09
XDRX API
(xdex_book_getallsheet "d:\\abc.xlsx")

谢谢你的回复,但我没有加载过晓东的函数库
比如说我的excel文件是d:\test.xls
通过执行下面几句
         (setq xl (vlax-get-or-create-object "Excel.Application"))
        (setq wbs (vlax-get-property xl "WorkBooks"))
        (setq wb (vlax-invoke-method wbs "open" "d:\\test.xls"))
        (setq shs (vlax-get-property wb "Sheets"))

        得到shs是工作表集合,下面怎样从变量shs中获得这个列表呢?不知道接下来怎么写

Lisphk

王鹏_pBZlo 发表于 2019-3-20 14:16
谢谢你的回复,但我没有加载过晓东的函数库
比如说我的excel文件是d:\test.xls
通过执行下面几句

CAD-EXCEL 源码

315 个回复 - 23787 次查看

附件包含LISP同DCL文件，一同放入到CAD支持路经下，加载LSP文件 **** 本内容被作者隐藏 ****

2014-1-10 14:51 - flyfox1048 - A/VLISP

  [LISP程序]：VLISP操作EXCEL函数库大全..

17 个回复 - 3881 次查看

此乃本人积累下来的一些小小经验.希望对大家有用,因公司 用的是繁体系统,故以上有些文字为繁体望见谅,大家可以自己回 去转化一下!

2005-3-26 16:08 - 舟自横 - A/VLISP

  VLISP COM读EXCEL例子代码

1 个回复 - 113 次查看

下面是个例子，读A1单元格的内容

2017-5-6 15:26 - marting - A/VLISP

marting

王鹏_pBZlo 发表于 2019-3-20 14:16
谢谢你的回复,但我没有加载过晓东的函数库
比如说我的excel文件是d:\test.xls
通过执行下面几句

1. (defun c:tt ()
   
2.   (setq xl (vlax-get-or-create-object "Excel.Application"))
   
3.   (setq wbs (vlax-get-property xl "WorkBooks"))
   
4.   (setq wb (vlax-invoke-method wbs "open" "d:\\1.xlsx"))
   
5.   (setq shs (vlax-get-property wb "Sheets"))
   
6.   (vlax-for item shs
   
7.     (princ "\nname=")
   
8.     (princ (vlax-get-property item 'name)))
   
9.   (vlax-release-object wb)
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (setq xl (vlax-get-or-create-object "Excel.Application"))<br />   (setq wbs (vlax-get-property xl "WorkBooks"))<br />   (setq wb (vlax-invoke-method wbs "open" "d:\\1.xlsx"))<br />   (setq shs (vlax-get-property wb "Sheets"))<br />   (vlax-for item shs<br />     (princ "\nname=")<br />     (princ (vlax-get-property item 'name)))<br />   (vlax-release-object wb)<br />   (princ)<br /> )

命令: TT

name=Sheet1
name=Sheet2
name=Sheet3
name=Sheet4
name=Sheet5

evayleung

谢谢分享。。。。。。。。。。。。。。。。。。。。。

wskiqght

跟着一起学习~！

sicky111

学习一下。