作者:清-新花曼的日子 | 来源:互联网 | 2023-07-08 12:57
utada776(招娣)再次发贴求人气怎样得知某个宏里具体实现了那些操作?我知道程序中,怎样执行一个宏,代码如下DimAccessAppAsNewAccess.Appl
utada776 (招娣) 再次发贴 求人气
怎样得知 某个宏里具体实现了那些操作?
我知道程序中,怎样执行一个宏,代码如下
Dim AccessApp As New Access.Application
AccessApp.Visible = False
AccessApp.OpenCurrentDatabase "DBFilePath"
AccessApp.DoCmd.RunMacro "MarcoName"
AccessApp.CloseCurrentDatabase
AccessApp.Quit
Set AccessApp = Nothing
现在,我想读取这个宏里 实现了那些操作如OpenTable,OpenForm等
,有没有办法得到?问题变态,请高人指点
-----------------------------------------------
northwolves(狼行天下) ( ) 信誉
你对哪些诸如OpenCurrentDatabase方法感兴趣,可以将整个宏读入字符串,再提取"."之后的字符
--------------------------------------------
utada776 (招娣)
好办法,但是怎么将 "宏操作读入字符串"呢,
或者说我只要能得到宏对象 就行,请教
4 个解决方案
对于模块中的不带参数的某过程,如:
sub xxxx()
....
end sub
XXXX就是宏名
比如宏MACROX:
SUB MACROX()
Dim AccessApp As New Access.Application
AccessApp.Visible = False
AccessApp.OpenCurrentDatabase "DBFilePath"
AccessApp.DoCmd.RunMacro "MarcoName"
AccessApp.CloseCurrentDatabase
AccessApp.Quit
Set AccessApp = Nothing
END SUB
显然,对于AccessApp 的"."之后的单词就是该宏的谓语.
可以将http://community.csdn.net/Expert/topic/4637/4637288.xml?temp=.7841608的所列方法列出全部代码,再筛选出宏名和各步骤的操作符