Программирование на Visual Basic

Для экспорта всех объектов базы данных Microsoft Access (таблиц, запросов, форм, отчетов, макросов и модулей) в текстовые файлы можно использовать недокументированную команду SaveAsText.

Основной метод: SaveAsText
Эта команда позволяет сохранить структуру и код любого объекта в текстовый формат, что удобно для резервного копирования или систем контроля версий (Git). Написать конвертор преобразования VBA в другой язык и т.п.
Синтаксис:
Application.SaveAsText [ТипОбъекта], "[ИмяОбъекта]", "[ПутьКФайлу]"

Sub ExportAllObjects()
    Dim obj As AccessObject
    Dim path As String
    ' Путь к папке, где будут файлы (должна существовать)
    path = "C:\.\AccessExport\" 
    
    ' Экспорт форм
    For Each obj In CurrentProject.AllForms
        Application.SaveAsText acForm, obj.Name, path & obj.Name & ".txt"
    Next obj
    
    ' Экспорт отчетов
    For Each obj In CurrentProject.AllReports
        Application.SaveAsText acReport, obj.Name, path & obj.Name & ".txt"
    Next obj
    
    ' Экспорт модулей
    For Each obj In CurrentProject.AllModules
        Application.SaveAsText acModule, obj.Name, path & obj.Name & ".txt"
    Next obj
    
    ' Экспорт запросов (QueryDefs)
    Dim qdf As DAO.QueryDef
    For Each qdf In CurrentDb.QueryDefs
        Application.SaveAsText acQuery, qdf.Name, path & qdf.Name & ".txt"
    Next qdf
    
    MsgBox "Экспорт завершен"
End Sub