a放到何处才能看到p
本帖最后由 zdqwy19 于 2021-12-13 12:20 编辑看到高飞鸟的帖子，有一不懂之处
(defun c:API (/ oEx oBk Mod str a)
(setq oEx (vlax-create-object "excel.application"))
(setq obk (vlax-invoke (vlax-get oEx 'workbooks) 'add))
(setq mod (vlax-invoke (vlax-get (vlax-get obk 'VBProject) 'VBComponents) 'add 1))
(setq str "Sub MyMacro()\np = 12 + 23\nEnd Sub")
(vlax-invoke (vlax-get mod 'CodeModule) 'AddFromString str)
(vlax-invoke oEx 'run "MyMacro")
(vlax-put oEx 'DisplayAlerts 0)
(vlax-invoke obk 'close)
(vlax-invoke oEx 'quit)
(vlax-release-object mod)
(vlax-release-object obk)
(vlax-release-object oEx)
(print a);a放到何处才能看到p;(setq a (加到何处))
(princ)
)
使用注册表的方法除外
通篇都没有A这个变量，怎么能显示？
页:
[1]