批量导出VBA工程中的Source

在做Excel宏相关项目的开发和维护过程中，我们经常需要导出VBA中的Source，但是Excel提供的宏编辑器中只能一个文件一个文件地导出，很不方便。

下面介绍2种批量导出的方法：

１．SourceTools 小插件

主要功能如下：

1.导入导出source

2.根据版本比较source（需要winmerge）

3.集成SVN（需要tortoiseSVN）

参考： http://www.codeproject.com/Articles/18029/SourceTools-xla

但是这个工具有个致命的缺点-----安装之后，导出用的工具栏按钮经常不出现。

(反正安装之后，导出按钮不出现的概率挺高的，不然我也不会去寻找下面一个方法，^_^)

 

２．自定义脚本

这个方法需要在VBA工程中新建一个Module，然后加入如下代码：

Sub exportVBSourceTool()
Dim ExportPath As String, ExtendName As String
Dim vbc As VBComponent
Dim i%

    'ExportPath = ThisWorkbook.Path　　　　　’使用这个目录的话，就会直接导出到宏所在的目录
    ExportPath = "C:\export_VBASource"  'make sure the directory is exist before run

    For Each vbc In Application.VBE.ActiveVBProject.VBComponents
        'get module code line count
        i = ThisWorkbook.VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines
        
        'if code count>=1,export
        'else skip
        If i >= 1 Then
            Select Case vbc.Type
            Case vbext_ct_ClassModule, vbext_ct_Document    'class module,excel object
                ExtendName = ".Cls"    'set extension name
            Case vbext_ct_MSForm    'form
                ExtendName = ".frm"
            Case vbext_ct_StdModule    'module
                ExtendName = ".Bas"
            End Select
            If ExtendName <> "" Then
                vbc.Export ExportPath & "\" & vbc.Name & ExtendName
            End If
        End If
    Next
End Sub

运行之前，还要做如下2件事情：

①引用Microsoft Visual Basic for Application Extensibility 5.3

VBA宏编辑器中，依次点击如下菜单：

工具 -->　参照設定 --> 在弹出的对话框中勾选“Microsoft Visual Basic for Application Extensibility 5.3” --> Click OK Button

②选择信任对VBA工程访问

Excel中，依次点击如下菜单：

工具 --> 宏 --> 宏安全 --> 信任对VBA工程对象模型的访问

设置好之后，运行就可以了，Source就导出到了指定的文件夹了~