097.导入VBA Project代码

'###############################################################

'函数作用：导入VBA Project代码

'###############################################################

Function ImportCode1()

    'Dim theMod As VBIDE.VBComponent

    For Each theMod In ThisWorkbook.VBProject.VBComponents

        With theMod.CodeModule

            '             .AddFromFile "c:\windows\desktop\index_Y.txt"

            .AddFromFile "the" & .Parent.Name & ".bas"

        End With

    Next

End Function