2

这是一个示例代码模块。我在以前版本的 Access 中使用的方法不起作用,因为 AllModules 集合不再包含表单和报表模块的对象。如果您有代码模块要备份,则必须与以下模块分开完成。

Public Sub ExportModules2013()

Dim boolCloseModule As Boolean
Dim frm As Form
Dim i As Integer
Dim iModuleType As Integer
Dim modModule As Module
Dim modOpenModules As Modules
Dim obj As AccessObject, dbs As Object
Dim rpt As Report
Dim sFileName As String
Dim sPath As String
'
sPath = "X:\Perryaire\Source\201308025\"
'
Set dbs = Application.CurrentProject
' Search for all AccessObject objects in AllForms Collection.
For Each obj In dbs.AllForms
    DoCmd.OpenForm obj.Name, acDesign
    Set frm = Forms(obj.Name)
    If frm.HasModule Then
        Set modModule = frm.Module
        GoSub L_ExportModule
    End If
DoCmd.Close acForm, frm.Name
Set frm = Nothing
Next obj
' Search for all AccessObject objects in AllReports Collection.
For Each obj In dbs.AllReports
    DoCmd.OpenReport obj.Name, acDesign
    Set rpt = Reports(obj.Name)
    If rpt.HasModule Then
        Set modModule = rpt.Module
        GoSub L_ExportModule
    End If
DoCmd.Close acReport, rpt.Name
Set rpt = Nothing
Next obj
' Search for all AccessObject objects in AllModules collection.
For Each obj In dbs.AllModules
    If Not obj.IsLoaded Then
        DoCmd.OpenModule (obj.Name)
    End If
    Set modModule = Application.Modules(obj.Name)
    GoSub L_ExportModule
    If boolCloseModule Then DoCmd.Close acModule, modModule.Name
Next obj
Exit Sub

L_ExportModule:

With modModule
    iModuleType = acStandardModule
    On Error Resume Next
    iModuleType = .Type
    sFileName = Nz(.Name, "MISSING:") & IIf(iModuleType = acStandardModule, ".bas", ".cls")

低开:

    On Error GoTo Lmkdir
    Open sPath & sFileName For Output As #1
    If modModule.Type = acStandardModule Then
        Print #1, "Attribute VB_Name = """ & .Name & """"
    Else
        Print #1, "VERSION 1.0 CLASS"
        Print #1, "BEGIN"
        Print #1, "   MultiUse = -1  'True"
        Print #1, "End"
        Print #1, "Attribute VB_Name = """ & .Name & """"
        Print #1, "Attribute VB_GlobalNameSpace = False"
        Print #1, "Attribute VB_Creatable = False"
        Print #1, "Attribute VB_PredeclaredId = False"
        Print #1, "Attribute VB_Exposed = False"
    End If
    Print #1, .Lines(1, CLng(.CountOfLines))

    Close #1
End With
Return

lmkdir:

If Err.Number = "76" Then
    MkDir sPath
    Resume Lopen
Else
    MsgBox "Error: " & Err.Number & " " & Err.Description
End If

Exit Sub

结束子

4

3 回答 3

3

你可以试试下面的代码。它将导出所有模块、类和表单代码并保存到当前项目文件夹。请记住在 VBE > 工具 > 参考中参考/检查Microsoft Visual Basic For Applications Extensibility Library

Sub ExportAllCode()

  For Each c In Application.VBE.VBProjects(1).VBComponents
      Select Case c.Type
          Case vbext_ct_ClassModule, vbext_ct_Document
              Sfx = ".cls"
          Case vbext_ct_MSForm
              Sfx = ".frm"
          Case vbext_ct_StdModule
              Sfx = ".bas"    
          Case Else
              Sfx = ""
      End Select
      If Sfx <> "" Then
          c.Export _
              fileName:=CurrentProject.Path & "\" & _
              c.Name & Sfx
      End If
  Next c

  End Sub
于 2014-12-09T17:19:43.303 回答
2

您是否尝试过使用未记录的Application.SaveAsText功能?

这是我用来导出所有表单/报告/查询/模块的内容:

另一个相关问题:

于 2013-08-07T13:01:28.540 回答
0

Excel有这样的工具。也许您可以查看源代码并使用所需的部分。http://www.codeproject.com/Articles/18029/SourceTools-xla

屏幕

于 2014-02-24T15:16:41.220 回答