VBA访问导出代码模块到文件夹

时间:2015-01-15 15:17:37

标签: vba ms-access access-vba

我正在尝试让Access VBA将其中一个模块复制到一个文件夹中 - 我已经查看了其他主题/ google而没有快乐 - 你怎么看?代码

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

1 个答案:

答案 0 :(得分:1)

您的上一行dbsCurr.Item("Module2").Export ModulePath无法运行(错误438对象无法接受属性或方法)。

您可以在StackOverflow上查看此主题:Export All Code

我将这些示例代码简单地重新添加Visual Basic for Application Extensibility库。所有代码都是完美的,只有我为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