批量导出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 >= 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