VBA生成EXCEL文件时复制Module的一种方法

最新推荐文章于 2024-09-18 17:01:00 发布

httpftp

最新推荐文章于 2024-09-18 17:01:00 发布

阅读量1.7k

点赞数 1

文章标签： module excel vba

本文链接：https://blog.csdn.net/httpftp/article/details/3235864

版权

 
  Sub CopyModule()
Dim strModuleName As String
Dim strPath as String 
Dim xlBook As Excel.Workbook
strPath = "D:/"
strModuleName  = strPath  & "MY_MODULE" & ".bas"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'导出模块
ThisWorkbook.VBProject.VBComponents(MODULE_NAME).Export (strModuleName)
Set xlBook = Workbooks.Add
'新的Workbook中导入模块
xlBook.VBProject.VBComponents.Import (strModuleName)
xlBook.Close savechanges:=True, Filename:= strPath & "NewBook.xls"
'删除模块文件
Kill (strModuleName)
End Sub
 
 