求一个打开指定excel文件的程序

theisland

希望可以打开当前图纸所在文件夹内的名为“工程材料统计”的电子表格。

比如某文件夹内有文件如下：
图纸1.dwg
工程材料统计.xls
……
当前CAD打开“图纸1”，运行程序，打开工程材料统计.xls，ok！

敬请大侠出手相助，谢谢了！

Linhay

2. (defun c:tt(/ path filename)
   
3. (setq path (getvar "DWGPREFIX"))
   
4. (setq filename (strcat path "工程材料统计.xls"))
   
5. (DSX-Open-Excel-Exist filename "show")
   
6. )
   
7. 
   
8. (defun DSX-Open-Excel-Exist (xfile dmode / appsession)
   
9. (princ "\n打开 Excel 电子表格文件...")
   
10. (cond
    
11. ( (setq fn (findfile xfile))
    
12. (cond
    
13. ( (setq appsession (vlax-get-or-create-object "Excel.Application"))
    
14. (vlax-invoke-method
    
15. (vlax-get-property appsession 'WorkBooks)
    
16. 'Open fn
    
17. )
    
18. (if (= (strcase dmode) "SHOW")
    
19. (vla-put-visible appsession 1)
    
20. (vla-put-visible appsession 0)
    
21. )
    
22. )
    
23. )
    
24. )
    
25. ( T (alert (strcat "\n不能找到指定的文件: " xfile)) )
    
26. )
    
27. appsession
    
28. )

(defun c:tt(/ path filename)<br /> (setq path (getvar "DWGPREFIX"))<br /> (setq filename (strcat path "工程材料统计.xls"))<br /> (DSX-Open-Excel-Exist filename "show")<br /> )<br /> <br /> (defun DSX-Open-Excel-Exist (xfile dmode / appsession)<br /> (princ "\n打开 Excel 电子表格文件...")<br /> (cond<br /> ( (setq fn (findfile xfile))<br /> (cond<br /> ( (setq appsession (vlax-get-or-create-object "Excel.Application"))<br /> (vlax-invoke-method<br /> (vlax-get-property appsession 'WorkBooks)<br /> 'Open fn<br /> )<br /> (if (= (strcase dmode) "SHOW")<br /> (vla-put-visible appsession 1)<br /> (vla-put-visible appsession 0)<br /> )<br /> )<br /> )<br /> )<br /> ( T (alert (strcat "\n不能找到指定的文件: " xfile)) )<br /> )<br /> appsession<br /> )

函数是收集的,不清楚原作者是谁

伪书虫86

试试看

2. (defun c:cs()
   
3.         (vlxls-app-open (strcat (getvar 'DWGPREFIX) "工程材料统计.xls") T)
   
4. )
   
5. 
   
6. 
   
7. ;0·打开xls
   
8. ;|
   
9. Examples:
   
10. (setq *xlapp* (vlxls-app-open "C:/test.XLS" T))  ==>  #<VLA-OBJECT _Application 001efd2c>
    
11. |;
    
12. (defun vlxls-app-open
    
13.    (XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)
    
14.    (setq XLSFile (strcase XLSFile))
    
15.    (if (null (wcmatch XLSFile "*.XLS" ))
    
16.       (setq XLSFile (strcat XLSFile ".XLS" ))
    
17.    )
    
18.    (if (and (findfile XLSFile) (setq Rtn (vlax-get-or-create-object "Excel.Application" )))
    
19.       (progn
    
20.          (vlax-invoke-method
    
21.             (vlax-get-property Rtn 'WorkBooks)
    
22.             'Open
    
23.             XLSFile
    
24.          )
    
25.          (if UnHide
    
26.             (vla-put-visible Rtn 1)
    
27.             (vla-put-visible Rtn 0)
    
28.          )
    
29.       )
    
30.    )
    
31.    Rtn
    
32. )

(defun c:cs()<br />         (vlxls-app-open (strcat (getvar 'DWGPREFIX) "工程材料统计.xls") T)<br /> )<br /> <br /> <br /> ;0·打开xls<br /> ;|<br /> Examples:<br /> (setq *xlapp* (vlxls-app-open "C:/test.XLS" T))  ==>  #<VLA-OBJECT _Application 001efd2c><br /> |;<br /> (defun vlxls-app-open<br />    (XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)<br />    (setq XLSFile (strcase XLSFile))<br />    (if (null (wcmatch XLSFile "*.XLS" ))<br />       (setq XLSFile (strcat XLSFile ".XLS" ))<br />    )<br />    (if (and (findfile XLSFile) (setq Rtn (vlax-get-or-create-object "Excel.Application" )))<br />       (progn<br />          (vlax-invoke-method<br />             (vlax-get-property Rtn 'WorkBooks)<br />             'Open<br />             XLSFile<br />          )<br />          (if UnHide<br />             (vla-put-visible Rtn 1)<br />             (vla-put-visible Rtn 0)<br />          )<br />       )<br />    )<br />    Rtn<br /> )

theisland

Linhay 发表于 2015-12-4 09:27
函数是收集的,不清楚原作者是谁

很完美，感激一百遍！

jltx123456

theisland 发表于 2015-12-4 14:22
很完美，感激一百遍！

楼主还是自学吧,不能总是想着别人跟你写代码
你可以看看BenjaminXM发的贴子 ,这才是来论坛学习的!
http://bbs.mjtd.com/home.php?mod=space&uid=7307327&do=thread&view=me&from=space
你如果总是求,跟flytoday有何分别? 恐成过街老鼠.......

theisland

jltx123456 发表于 2015-12-4 14:32
楼主还是自学吧,不能总是想着别人跟你写代码
你可以看看BenjaminXM发的贴子 ,这才是来论坛学习的!
http ...

我是听同事说碰到CAD中的大部分问题都可以在明经社区找到答案，我信了，并且确实得到了很多帮助，很感激大家！我没时间学习编程，觉得好复杂，我只是希望有需求时，能得到及时的帮助，所得程序我仅仅在自己的工作中用到，我也觉得做伸手党很不好，因此考虑用人民币充值，考虑到我大明经社区有自己的纪律，我也试着去程序申请区发帖，但感觉回应很少、很慢甚至没有，所以才在这里申请。请原谅我的不守规矩，但说到底我就是一个很纯粹希望在我大明经社区寻求答案的人，并无心专研编程技术，以后我还是按管理员规定在指定板块发帖求程序吧，我不会亏待帮我的人，合理的报酬可以谈，请各位武艺精湛的“职业杀手”加我好友吧！再次表达抱歉，顺便说一句，我不知道谁是flytoday……，我相信我的所为对得起任何人

lucas_3333

楼主,问题解决了, 请将主题置为"已解决" ,页面右上角有个黄色按钮

lxy_2080

学习了，，，。。。。来自: Android客户端