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

Question

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

Answer 1

在Access 中，工具---宏---VB编辑器---出现模块1，单击右键，插入模块,SUB 宏名() end sub

Answer 2

现在，我想读取这个宏里 实现了那些操作如OpenTable,OpenForm等
-----------------
你对哪些诸如OpenCurrentDatabase方法感兴趣,可以将整个宏读入字符串,再提取"."之后的字符

Answer 3

你对哪些诸如OpenCurrentDatabase方法感兴趣,可以将整个宏读入字符串,再提取"."之后的字符
-------------------------------------------------
好办法，但是怎么将 "宏操作读入字符串"呢，
或者说我只要能得到宏对象 就行，请教

Answer 4

可以参考我在下面帖子中的答复
http://club.excelhome.net/dispbbs.asp?boardid=2&id=154429

Answer 5

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)
NextAccessApp.CloseCurrentDatabase
AccessApp.Quit
Set AccessApp = Nothing是这样吧，找不到宏

Answer 6

能找到啊.
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

Answer 7

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