从ms访问应用程序导出整个vba代码

我有一个MS访问应用程序（MS访问2013年），我想导出所有的VBA代码来分离文件夹中的文件

我可以添加什么代码来做到这一点？

谢谢，

Answer 1

尝试这个：

Public Sub ExportVBAComponents() Dim wbPath As String Dim vbComp As Object Dim exportPath As String wbPath = ActiveWorkbook.Path For Each vbComp In ActiveWorkbook.VBProject.VBComponents exportPath = wbPath & "\" & vbComp.Name & Format$(Now, "_yyyymmdd_hhnnss") Select Case vbComp.Type Case 1 ' Standard Module exportPath = exportPath & ".bas" Case 2 ' UserForm exportPath = exportPath & ".frm" Case 3 ' Class Module exportPath = exportPath & ".cls" Case Else ' Anything else exportPath = exportPath & ".bas" End Select On Error Resume Next vbComp.Export exportPath On Error GoTo 0 Next End Sub 

上面的代码会将ActiveWorkbook中的所有VBA组件/模块导出到您的工作簿相同的位置。 它将使用组件名称作为文件名的一部分，并添加一个时间戳。 由于您有超过100个模块，因此最好将导出path更改为包含子文件夹，以将它们全部组合在一起。

注：要使其工作，您需要select选项>信任中心>信任中心设置…>macros设置>信任访问VBA项目对象模型 。 否则，您会在For Each行中出现一些随机错误。 如果你担心这个问题，你可以selectclosures这个选项。