|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
各位老师:
我想从word vbe窗口将所有模块的代码导出放到一个文件夹中,代码如下:
Dim ExportPath As String, ExtendName As String
Dim vbc As VBComponent
'ExportPath = ThisDocument.Path
ExportPath = "C:\桌面\word文档处理模块\"
For Each vbc In Application.VBE.ActiveVBProject.VBComponents
Select Case vbc.Type
Case vbext_ct_ClassModule, vbext_ct_Document '组件属性为类模块、EXCEL对象
ExtendName = ".Cls" '设置导出文件的扩展名
Case vbext_ct_MSForm '组件属性为窗体
ExtendName = ".frm"
Case vbext_ct_StdModule '组件属性为模块时
ExtendName = ".Bas"
End Select
If ExtendName <> "" Then
On Error Resume Next
vbc.Export ExportPath & vbc.Name & ExtendName
' Debug.Print ExportPath & "\" & vbc.Name & ExtendName
End If
Next
但在指定的文件夹中未见导出的模块,请指点,谢谢
|
|