vba - 从 Personal.xlsb 导出所有模块

Question

我想使用 VBA 导出/维护/管理我的个人宏工作簿 individual.xlsb 中模块的文本文件备份。

我在 msdn 上找不到引用模块本身的对象库。有人能给我指出正确的方向吗？

使用 Excel 2013。

Answer 1

您需要添加 Visual Basic for Application Extensibility X.X 引用；或:

Sub load_reference_1() 
ThisWorkbook.VBProject.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 3
end sub

Sub Load_reference_2() 
ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
end sub

示例:

Sub Macromodule_copy1()
    ThisWorkbook.VBProject.VBComponents("Macroos").Export "E:\Macroos.bas"
     With Workbooks.Add

    .VBProject.VBComponents.Import "E:\Macroos.bas"
    End With
End Sub

更多示例和来源: Snb-Vba -很棒的例子!-