wushixlm 发表于 2015-11-24 12:39

如何打开指定位置excel

本人想打开位置excel并读取指定工作表内容 如d:\1.xls 中“人数”这个工作表的内容
查了论坛里面的资料 应为如下格式
(defun c:333 ()
(setq excelapp0 (vlax-get-object "Excel.Application"));;excel program object
(setq activeworkbook0 (vlax-get-property excelapp0 'ActiveWorkbook));;excel workbook object
(setq activesheet0 (vlax-get-property activeworkbook0 'ActiveSheet));;excel sheet object
(setq cells0 (vlax-get-property activesheet0 'cells));;excel cell object
(setq a1 (vlax-get-property cells0 'item 1 A))   ;;A1
(setq a1-value (vlax-variant-value (vlax-get-property (vlax-variant-value a1) 'text))) ;;or 'value or 'text
)

但是这个lisp是查询正在打开的xls文件 我试了一下把'ActiveWorkbook 改为 "d:\1.xls" 是不行的 我想问一下 应如何实现 同时如何实现打开“人数”这个工作表的内容 谢谢了

nzl1116 发表于 2015-11-24 12:46

(setq
        ;;获取Excel对象
        ExcObj        (vlax-get-or-create-object "Excel.Application")
        ;;获取工作表集合对象
        WBKs        (vlax-get-property ExcObj 'WorkBooks)
        ;;打开指定的文档
        XlsFile (vlax-invoke-method WBKs 'open ExcFile)
)

wushixlm 发表于 2015-11-24 12:56

nzl1116 发表于 2015-11-24 12:46 static/image/common/back.gif


我试了你发的lisp 把ExcFile 改为"d:\1.xls"   运行就没有反应了 还有 我只想读取里面的数据 而不想 打开这个xls文件请问这个如何实现啊？

nzl1116 发表于 2015-11-24 16:09

wushixlm 发表于 2015-11-24 12:56 static/image/common/back.gif
我试了你发的lisp 把ExcFile 改为"d:\1.xls"   运行就没有反应了 还有 我只想读取里面的数据 而不想 打开 ...

设置下Excel对象的可见属性，你就看到了。

wushixlm 发表于 2015-12-29 17:47

nzl1116 发表于 2015-11-24 16:09 static/image/common/back.gif
设置下Excel对象的可见属性，你就看到了。

请问这个如何设置啊？

nzl1116 发表于 2015-12-30 09:26

wushixlm 发表于 2015-12-29 17:47 static/image/common/back.gif
请问这个如何设置啊？

(vlax-put-property ExcObj 'visible :vlax-true)

z312144636 发表于 2024-5-9 14:08

(vla-put-visible XLobj 0) ;;或 (vla-put-visible XLobj :vlax-true)

wide 发表于 2024-5-18 19:43

如何取得单元格行号和列号？
页: [1]
查看完整版本: 如何打开指定位置excel