如何用lisp打开某个excel文件

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

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

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

账号		自动登录	找回密码
密码			注册

如何用lisp打开某个excel文件

相关帖子