求助 msxl-get-ActiveSheet的用法

xiaxiang · 发表于 2012-7-10 21:12:52

仔细读一下这个应该有帮助的

http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=667

xiaxiang · 发表于 2012-7-10 21:25:41

本帖最后由 xiaxiang 于 2012-7-11 08:48 编辑

用这段代码对照VBA参考手册，应该能搞定了吧。

(setq xlapp (vlax-get-or-create-object "Excel.Application")
xlbooks (vlax-get-property xlapp 'Workbooks)
xlbook (vlax-invoke-method xlbooks 'Add)
xlsheets (vlax-get-property xlbook 'Sheets)
xlsheet (vlax-get-property xlsheets 'Item 1)
xlcells (vlax-get-property xlsheet 'Cells)
)

198526 · 发表于 2012-7-11 09:11:34

问题已解决！谢谢各位的热心指导！
谢谢！

198526 · 发表于 2012-7-11 09:13:55

xiaxiang 发表于 2012-7-10 21:25
用这段代码对照VBA参考手册，应该能搞定了吧。

谢谢！我对VBA了解得很少，现在问题已解决了，虽然还没弄懂，但能用了。我先用着慢慢再学，到时再来向你请教。
再次感谢！

srv2 · 发表于 2012-7-12 08:03:57

xiaxiang 发表于 2012-7-10 21:12
仔细读一下这个应该有帮助的
http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=667

获益非浅, 了解了全貌

longer1000 · 发表于 2012-7-12 08:38:26

太难了，高手也多

BB建筑师 · 发表于 2014-6-23 08:43:52

在群上问人解决未果，希望对新人有用。
如果是OFFICE 2010版，是因为程序没有对office进行调用。增加一下函数即可
(setq  Olb14 (findfile
(vl-string-subst "EXCEL14.OLB" "EXCEL.EXE" GGG)
      )
   )

还有判断的

  ((= (vl-filename-base (vl-filename-directory GGG))
"OFFICE14"
      )
      (setq TLB GGG
   Out "2010"
      )
      )

参考http://bbs.mjtd.com/thread-4162-1-1.html  里面的 vlxls-app-Init

qyming · 发表于 2014-6-23 09:36:39

加精，有空来学习学子

rhett_sky · 发表于 2014-12-6 23:02:47

在群上问人解决未果，希望对新人有用。
如果是OFFICE 2010版，是因为程序没有对office进行调用。增加一下函数即可
      (setq  Olb14 (findfile
                     (vl-string-subst "EXCEL14.OLB" "EXCEL.EXE" GGG)
                  )
      )

还有判断的

  ((=       (vl-filename-base (vl-filename-directory GGG))
            "OFFICE14"
         )
         (setq TLB GGG
               Out "2010"
         )
         )

参考http://bbs.mjtd.com/thread-4162-1-1.html  里面的 vlxls-app-Init

这个是正解，修改LSP程序里的 vlxls-app-Init，把这两段话加在对应的位置上。

yhly555 · 发表于 2016-9-9 10:53:14

msxl-get-ActiveSheet
在office 2010中不能识别，不知道换成了什么

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

求助 msxl-get-ActiveSheet的用法

点评