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

最新推荐文章于 2026-01-07 10:40:54 发布

原创最新推荐文章于 2026-01-07 10:40:54 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#module #excel #vba

本文介绍了一段VBA代码，该代码用于将当前工作簿中的指定模块复制到一个新的Excel工作簿中，并保存为新文件。此过程包括导出模块、在新工作簿中导入模块并关闭工作簿。

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