Exporting MS Access Forms and Class / Modules Recursively to text files?

Question

I found some code on an ancient message board that nicely exports all of the VBA code from classes, modules and forms (see below): ``` Option Explicit Option Compare Database Function SaveToFile() 'Save the code for all modules to files in currentDatabaseDir\Code Dim Name As String Dim WasOpen As Boolean Dim Last As Integer Dim I As Integer Dim TopDir As String, Path As String, FileName As String Dim F As Long 'File for saving code Dim LineCount As Long 'Line count of current module I = InStrRev(CurrentDb.Name, "\") TopDir = VBA.Left(CurrentDb.Name, I - 1) Path = TopDir & "\" & "Code" 'Path where the files will be written If (Dir(Path, vbDirectory) = "") Then MkDir Path 'Ensure this exists End If '--- SAVE THE STANDARD MODULES CODE --- Last = Application.CurrentProject.AllModules.Count - 1 For I = 0 To Last Name = CurrentProject.AllModules(I).Name WasOpen = True 'Assume already open If Not CurrentProject.AllModules(I).IsLoaded Then WasOpen = False 'Not currently open DoCmd.OpenModule…

Accepted Answer

You can also try this code. It will preserve the items' filetypes (.bas, .cls, .frm) Remember to refer to / Check the Microsoft Visual Basic For Applications Extensibility Library in VBE > Tools > References

```
Public Sub ExportAllCode()

Dim c As VBComponent
    Dim Sfx As String

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
```

Exporting MS Access Forms and Class / Modules Recursively to text files?

Solution

Problem

Related problems