BIGAL 发表于 2022-7-6 22:42:59

卸载vba

一个非常简单的问题是,我们有一个第三方程序,它有时会通过显示消息框来中断命令,您必须按Ok才能继续。它使用某种形式的反应器。
 
使用vbaman,您可以卸载它,尝试从命令行/菜单中找到正确的sysntax来卸载它。
 
请帮忙。

BlackBox 发表于 2022-7-6 23:22:26

请阅读此线程。当我早上上班时,我应该能够调整子函数,使其接受有效的命名VBA应用程序(现在在我的iPhone上)。
 
编辑:忘记说看帖子#6。
 
HTH公司

BIGAL 发表于 2022-7-6 23:41:26

谢天谢地,Renderman认为只要设置完整的文件名(包括变量的路径)就很容易了,然后(命令“\u vbaunload”vbaprogfiletoremove)简单的东西通常很难猜到。据我所知,程序名的代码只有两行。上面的代码帮助找到了完整的路径名。
 
只是添加了一个princ和rem命令来查看当前加载的内容
 

(defun Get-VBA-Project-list ( / ACAD VBAO PRO N NAMES)
(vl-load-com)
(if (and
(setq ACAD (vlax-get-acad-object))
(setq VBAO (vla-get-vbe ACAD))
(setq PROs (vlax-get VBAO "VBProjects"))
)
(repeat (setq N (vla-get-count PROs))
(setq PRO (vla-item PROs N)
NAMES (cons
(list
(vlax-get PRO "Name")
(vlax-get PRO "FileName")
)
NAMES)
N (1- N) ) ) )
NAMES ) )
(defun C:UNVBA ( / app apps)
(setq apps (Get-VBA-Project-List))
(foreach app apps
;(command "_VBAUNLOAD" (cadr app))
(princ (cadr app))
)
)

BlackBox 发表于 2022-7-6 23:51:31

不客气!
页: [1]
查看完整版本: 卸载vba