123456abc 发表于 2012-3-10 14:48:23

如何用lisp打开某个excel文件

本帖最后由 123456abc 于 2012-3-10 15:00 编辑

请问各位如何用lisp打开盘中的某个excel文件呢？
用下面这一段没用：
(defun c:a ()
(command "open" "D:\\\\Program Files\\\\增强工具\\\\外部工具\\\\1.xls))
用下面这一段原来在xp+cad2004可以打开，现在win7+cad2008不能用了，提示找不到文件，我认真查看了文件位置没有错。
(defun c:a ()
(STARTAPP (FINDFILE "C:/Program Files/Microsoft Office/OFFICE11/excel.EXE")
"D:\\\Program Files\\\增强工具\\\外部工具\\\1.xls"))

langjs 发表于 2012-3-10 15:48:32

搜索论坛啊，先搜再问
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69981

123456abc 发表于 2012-3-11 14:42:09

谢谢了，我起先搜索了的，搜了很多遍，没搜到相关的，可能关键词不对吧

lidaxiu 发表于 2012-3-11 15:25:53

恩楼主这个研究方向也会引发好多想法，我也想研究这块

wangph 发表于 2012-3-11 15:48:43

这个问题不是一个open函数就能解决的，论坛上有例子

草木堂 发表于 2012-7-12 19:02:15

本帖最后由 草木堂 于 2012-7-12 19:11 编辑

???????????????

xiabin68 发表于 2013-1-1 13:37:26

我也在找这方面的代码，，，

millermin 发表于 2013-1-2 02:35:58

本帖最后由 millermin 于 2013-1-2 02:38 编辑

用的很顺。 两次循环即可读完。excel文件必须同时打开。


(defun rexcel-v(n A)
(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 n A))   ;;A1
(setq a1-value (vlax-variant-value (vlax-get-property (vlax-variant-value a1) 'value))) ;;or 'value or 'text
)
页: [1]
查看完整版本: 如何用lisp打开某个excel文件