VBA Access导出代码模块到文件夹 [英] VBA Access export code module to folder
问题描述
我正在尝试让Access VBA将其模块之一复制到文件夹中-我看过其他线程/谷歌,但并不高兴-您如何看待?下面的代码
I am trying to get Access VBA to copy one of its modules out to a folder - I have looked at the other threads / google and no joy - what do you think? Code below
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
推荐答案
您的最后一行dbsCurr.Item("Module2").Export ModulePath
无法运行(错误438对象无法接受属性或方法).
Your last line dbsCurr.Item("Module2").Export ModulePath
can't run (Err. 438 Object can't admit property or method).
您可以在StackOverflow上检查此线程:导出所有代码.
You can check this thread on StackOverflow: Export All Code.
我简单地记住了这些示例代码,以添加Visual Basic for Application Extensibility库.所有代码都是完美的,只有我为DIM一些变量添加了两行.
I those sample code simple remmember to add the library Visual Basic for Application Extensibility. All code are perfect and only i add two lines for DIM some vars.
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
这篇关于VBA Access导出代码模块到文件夹的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!