[VBA函数]：自动生成命令来自动加载及执行VBA程序

yxljx

2. (defun AutoVBALoad (cmdname project macro)
   
3.   (eval
   
4.     (list 'defun
   
5.   (read (strcat "C:" cmdname))
   
6.   nil
   
7.   (list
   
8.     'vl-vbarun
   
9.     (strcat
   
10.       project
    
11.       "!"
    
12.       (if macro
    
13. macro
    
14. cmdname
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19.     )
    
20.   )
    
21. )

(defun AutoVBALoad (cmdname project macro) <br />   (eval <br />     (list 'defun <br />   (read (strcat "C:" cmdname)) <br />   nil <br />   (list <br />     'vl-vbarun <br />     (strcat <br />       project <br />       "!" <br />       (if macro <br /> macro <br /> cmdname <br />       ) <br />     ) <br />   ) <br />   (princ) <br />     ) <br />   ) <br /> )

qjcpj

以前在明经看过此程序，楼主应加[转帖]二字比较妥当！

yxljx

小弟新来，谢谢大哥提醒