方法一：在2010下测试没通过，仅此留于参考

''（运行前:
''1、引用Microsoft Visual Basic for Application Extensibility 5.3，
''2、并且选择信任对VBA工程访问）
Sub 批量导出VBE模块()
Dim ExportPath As String, ExtendName As String
Dim vbc As VBComponent
Dim i%
    ExportPath = ThisWorkbook.Path
    For Each vbc In Application.VBE.ActiveVBProject.VBComponents
        '取得模块内代码行数
        i = ThisWorkbook.VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines
        
        ''判断模块是否为空，也就是代码行数是否>=1。
        If i >= 1 Then
            Select Case vbc.Type
            Case vbext_ct_ClassModule, vbext_ct_Document    '组件属性为类模块、EXCEL对象
                ExtendName = ".Cls"    '设置导出文件的扩展名
            Case vbext_ct_MSForm    '组件属性为窗体
                ExtendName = ".frm"
            Case vbext_ct_StdModule    '组件属性为模块时
                ExtendName = ".Bas"
            End Select
            If ExtendName <> "" Then
                vbc.Export ExportPath & "\" & vbc.Name & ExtendName
            End If
        End If
    Next
End Sub

' 引自：http://www.excelpx.com/thread-149360-1-1.html

'方法二

Sub Exportall()
Dim code As VBComponent
For Each code In ThisWorkbook.VBProject.VBComponents
code.Export ThisWorkbook.path & "\" & code.Name & "." & Split("cls bas cls frm")(code.Type Mod 4)
Next
End Sub

' 引自：http://tieba.baidu.com/p/1570141139

'注：在excel的宏安全性设置里,勾选"信任对vba工程对象模型的访问".

相关文章参考：

VBA语言基础

各种Excel VBA的命令

VB6 中将数据导出到 Excel 提速之法

VBA语法200句

各种Excel VBA的命令

Execl编程详解

其它VB相关：

VB软件操作EXCEL教程：※VB全面控制Excel