如何打开指定位置excel

wushixlm

本人想打开位置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

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

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

wushixlm

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

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

nzl1116

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

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

wushixlm

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

请问这个如何设置啊？

nzl1116

wushixlm 发表于 2015-12-29 17:47
请问这个如何设置啊？

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

z312144636

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

wide

如何取得单元格行号和列号？