作者：绿色风
分类：
时间：2022-08-17
浏览：126
楼主
chrisfang |
Q：如何使用VBA复制指定工作簿中的程序代码?
A：以下示例代码可以从指定的工作簿中复制所有模块的代码，并在当前工作簿中创建对应的模块，将复制来的程序代码存放其中：
- Sub CopySub()
- Application.ScreenUpdating = False
- filestoOpen = Application.GetOpenFilename _
- (FileFilter:="Microsoft Excel Files (*.xlsm;*.xls), *.xlsm;*.xls", _
- MultiSelect:=False, Title:="选择包含VBA代码的工作簿")
- If TypeName(filestoOpen) = "Boolean" Then
- MsgBox "没有选择工作簿"
- GoTo ExitHandler
- End If
- Workbooks.Open Filename:=filestoOpen
- On Error Resume Next
- For Each tmodule In ActiveWorkbook.VBProject.VBComponents
- Set newmodule = ThisWorkbook.VBProject.VBComponents.Add(1)
- newmodule.Name = tmodule.Name & "_from_" & Left(ActiveWorkbook.Name, Application.Find(".", ActiveWorkbook.Name) - 1)
- For i = 1 To tmodule.codemodule.CountOfLines
- newmodule.codemodule.InsertLines i, tmodule.codemodule.Lines(i, 1)
- Next i
- Next
- ActiveWorkbook.Close False
- Application.ScreenUpdating = True
- MsgBox "已完成目标工作簿的模块代码复制!"
- ExitHandler:
- End Sub
 复制代码.rar
注意，要正确运行此程序，需要在宏安全性中勾选“信任VBA工程的访问”：
有关使用VBA直接向指定工作簿中写入自定义程序代码的方法，可参见： http://www.exceltip.net/thread-6907-1-1.html
|
2楼
海洋之星 |
学习一下VBA |
3楼
水星钓鱼 |
感谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一