从 ms 访问应用程序导出整个 vba 代码 [重复]

Question

我有一个 ms access 应用程序（ms access 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 多个模块，因此您最好更改导出路径以包含一个子文件夹，以便将它们全部组合到一个位置。

注意：为此，您需要选择选项>信任中心>信任中心设置...>宏设置>信任对 VBA 项目对象模型的访问。否则你会在For Each 行中得到一些随机错误。如果您担心，可以在之后勾选该选项。