[求助]：LISP程序加载VBA宏的问题

winabcd · 发表于 2005-10-20 15:21:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我写了下列函数用来加VBA宏
(defun loadvba()
(setvar "cmdecho" 0)
(if (findfile "TextManage01.dvb")
   (progn
   (setvar "filedia" 0)
   (command "_vbaload" (findfile "TextManage01.dvb"))
   (command "_vbarun" "thisdrawing.showform")
   (print "AAAAAAAA")
   (command "_vbaunload" (findfile "TextManage01.dvb"))
   (setvar "filedia" 1)
   )
   (princ
   "\nThe file was not found in your search path."
   )
   )
(princ)
)
如果我在VBA的FORM中什么也不干，就点退出（用END语句），则可以打印出“AAAAAA”。
当我在VBA的FORM中点击别的按钮操作后，再点击退出（用END语句），则提示“执行错误”，并不能打印出“AAAAAA”。

请各位帮我看看问题出在哪儿。

chenknight · 发表于 2005-10-24 00:49:18

那是你的VBA有问题

winabcd · 发表于 2005-10-24 14:05:45

我的VBA在VBA开发状态下运行没有问题，
2楼讲问题出在VBA是，我想这是有可能的，但我找不出原因，你能不能给出出主意。

chenknight · 发表于 2005-10-25 14:14:09

单步调试一下吧

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

[求助] [求助]：LISP程序加载VBA宏的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子