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 static/image/common/back.gif
用这段代码对照VBA参考手册，应该能搞定了吧。

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

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

xiaxiang 发表于 2012-7-10 21:12 static/image/common/back.gif
仔细读一下这个应该有帮助的
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进行调用。增加一下函数即可
        (setqOlb14 (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进行调用。增加一下函数即可
      (setqOlb14 (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中不能识别，不知道换成了什么
页: 1 [2]
查看完整版本: 求助 msxl-get-ActiveSheet的用法