明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 116|回复: 1

[提问] 如何激活excel的某张工作表?

[复制链接]
发表于 2017-9-11 12:40 | 显示全部楼层 |阅读模式
   (setq f1 (getfiled "选择excel文件" "d:/" "xls;xlsx" 8) f1 (findfile f1))
   (cond
      ((setq exlib (findfile "c:\\Program Files\\Microsoft Office\\Office11\\Excel.exe"))  exlib)
      ((setq exlib (findfile "c:\\Program Files\\Microsoft Office\\Office12\\Excel.exe"))  exlib)
      ((setq exlib (findfile "c:\\Program Files\\Microsoft Office\\Office14\\Excel.exe"))  exlib)
   )
   (if (null mx-acos) (vlax-import-type-library         :tlb-filename exlib :methods-prefix "mx-" :properties-prefix "mx-" :constants-prefix "mx-"))
   (setq xlobj (vlax-create-object "excel.application") wbobj (vlax-invoke-method (vlax-get-property xlobj 'WorkBooks) 'Open f1))
   (setq sheetobj (mx-get-activesheet xlobj))

最后一句话返回了当前激活的工作表,如果想要激活另外一张表,比如说sheet3,用什么语句,大神请帮帮忙。

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2017-11-22 18:42 , Processed in 0.212785 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表