以下Access用

Sub subExportAllModuleforAccess()

    

    Dim vbcComp As VBIDE.VBComponent



    For Each vbcComp In Application.VBE.ActiveVBProject.VBComponents

       Debug.Print vbcComp.Name, vbcComp.Type

       vbcComp.Export ("c:20080920" & vbcComp.Name)

    Next vbcComp

End Sub





以下Excel用

Sub subExportAllModuleForExcel()

    

    Dim vbcComp As VBIDE.VBComponent



    For Each vbcComp In ActiveWorkbook.VBProject.VBComponents

       Debug.Print vbcComp.Name, vbcComp.Type

       vbcComp.Export ("c:20080920" & vbcComp.Name)

    Next vbcComp

End Sub