VBA请教怎样得知某个宏里具体实现了那些操作？

utada776 2006-03-24 01:18:02

怎样得知某个宏里具体实现了那些操作？
我知道程序中，怎样执行一个宏，代码如下
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等
，有没有办法得到？问题变态，请高人指点

...全文

229 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2006-03-31

打赏
举报

能找到模块中的代码，但是找不到宏？
模块和宏是什么关系呢？
----------------------------
对于模块中的不带参数的某过程,如:
sub xxxx()
....
end sub

XXXX就是宏名

utada776 2006-03-31

打赏
举报

能找到模块中的代码，但是找不到宏？
模块和宏是什么关系呢？

northwolves 2006-03-31

打赏
举报

能找到啊.
Dim AccessApp As New Access.Application
AccessApp.Visible = False
AccessApp.OpenCurrentDatabase TestObjPath

Dim vbcomp, x As String
For i = 1 To AccessApp.VBE.VBProjects.Item(1).VBComponents.Count
Set vbcomp = AccessApp.VBE.VBProjects.Item(1).VBComponents(i)
x = vbcomp.CodeModule.Lines(1, 65536)
Next
Debug.Print x '------------------------>show all
AccessApp.CloseCurrentDatabase
AccessApp.Quit
Set AccessApp = Nothing

utada776 2006-03-30

打赏
举报

northwolves(狼行天下) ( ) 信誉：125
可以参考我在下面帖子中的答复
----------------------------------------------------
Dim AccessApp As New Access.Application
AccessApp.Visible = False
AccessApp.OpenCurrentDatabase TestObjPath
AccessApp.DoCmd.RunMacro Para1

Dim vbcomp, x As String
For i = 1 To AccessApp.VBE.VBProjects.Item(1).VBComponents.Count
Set vbcomp = AccessApp.VBE.VBProjects.Item(1).VBComponents(i)
x = vbcomp.CodeModule.Lines(1, 65536)
Next

AccessApp.CloseCurrentDatabase
AccessApp.Quit
Set AccessApp = Nothing

是这样吧，找不到宏

northwolves 2006-03-30