VBA Access 将代码模块导出到文件夹

【问题标题】：VBA Access export code module to folderVBA Access 将代码模块导出到文件夹
【发布时间】：2015-03-14 00:53:50
【问题描述】：

我正在尝试让 Access VBA 将其中一个模块复制到一个文件夹中 - 我查看了其他线程/谷歌并没有高兴 - 你怎么看？代码如下

Sub copy_out_module()
    Set appAccess = New Access.Application 
    Set dbsCurr = appAccess.CurrentProject

    Const ModulePath As String = "C:\Users\Sjohn\Documents\Components\"

    dbsCurr.Item("Module2").Export ModulePath
End Sub

【问题讨论】：

[将 MS Access 表单和类/模块递归导出到文本文件？][1] [1] 的可能重复项：stackoverflow.com/questions/16948215/…

标签： ms-access vba

【解决方案1】：

你的最后一行dbsCurr.Item("Module2").Export ModulePath 无法运行（Err. 438 Object can't admission property or method）。

你可以在 StackOverflow 上查看这个帖子：Export All Code。

我记得那些简单的示例代码添加库 Visual Basic 以实现应用程序可扩展性。所有代码都是完美的，只有我为 DIM 一些变量添加了两行。

Sub ExportAllCode()
Dim c As Object
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

【讨论】：