在VBE中，如何批量导出文件(模块、窗体、工作表)？

foshan

在 VBE 中，能否一次性将一个工作薄中的所有模块或窗体导出？而不必逐个模块一个个地导出？

button

请测试（运行前引用Microsoft Visual Basic for Application Extensibility 5.3，并且选择信任对VBA工程访问）

Sub ExportAllVBC() Dim ExportPath As String, ExtendName As String Dim vbc As VBComponent ExportPath = ThisWorkbook.Path 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 vbc.Export ExportPath & "\" & vbc.Name & ExtendName Next End Sub

gyping

那如何vba语言实现导入呢

tianying

用VBComponent.Import(FileName As String)方法导入

hhzjxss

原帖由 button 于 2005-6-14 19:54 发表
''（运行前:
''1、引用Microsoft Visual Basic for Application Extensibility 5.3，
''2、并且选择信任对VBA工程访问）

Sub ExportAllVBC()
Dim ExportPath As String, ExtendName As String
Dim vbc As VBComponent
    ExportPath = ThisWorkbook.Path
    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
            vbc.Export ExportPath & "\" & vbc.Name & ExtendName
        End If
    Next
End Sub

谢谢button版主，请问一下，是不是能够判断一下，没有代码有空白工作表和工作簿模块就不导出呢？

ganw

一次性将一个工作薄中的所有模块或窗体导出