我正在尝试让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
答案 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