VBA訪問導出代碼模塊到文件夾

-1

我想獲得訪問VBA將其模塊之一複製到一個文件夾 - 我看了其他線程/谷歌和沒有喜悅 - 你怎麼看？下面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

來源

2015-01-15 Mr_Fish

的可能的複製[導出MS Access表單和類/模塊遞歸到文本文件？] [1] [1]：http://stackoverflow.com/questions/16948215/exporting-ms-access-forms-and-class-modules-recursively-to-text-files – ignotus 2015-01-15 16:16:13

你的最後一行dbsCurr.Item("Module2").Export ModulePath代碼無法運行（ERR 438對象不能承認屬性或方法）。

您可以在StackOverflow上檢查此線程：Export All Code。

我那些示例代碼簡單的remmember添加庫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

來源

2015-01-16 17:01:06 Mastercafe

所以我之前遇到過這樣的代碼 - 似乎沒有做任何事情.... – 2015-01-19 09:37:43

VBA訪問導出代碼模塊到文件夾

回答

相關問題