Ms 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

---

最后一行

dbcurr.Item（“Module2”）.Export ModulePath

无法运行（错误438对象不能接受属性或方法）

您可以在StackOverflow上检查此线程：

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

子导出所有代码（）
作为对象的dimc
将sfx设置为字符串
对于Application.VBE.VBProjects（1.VBComponents）中的每个c
选择案例c.类型
案例vbext\U ct\U类模块，vbext\U ct\U文档
sfx=“.cls”
案例vbext\U ct\MSForm
sfx=“.frm”
案例vbext\U ct\U标准模块
sfx=“.bas”
其他情况
sfx=“”
结束选择
如果是sfx“”，则
c、 出口_
文件名：=CurrentProject.Path&“\”和_
c、 名称和sfx
如果结束
下一个c
End Sub

可能重复[将MS Access表单和类/模块递归导出到文本文件？][1][1]：