[已解决]请教老师关于新建表格复制VBA模块的问题？？？

xm2012

请见图片:
Book12.rar (15.54 KB, 下载次数: 7)

2012-10-22 15:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-10-22 21:15

需要引用Microsoft Visual Basic For Application Extensibility 5.3
2007还要勾选“信任对VBA工程对象模型的访问”（在安全设置对话框中）
Sub 复制模块()
    模块 = "需要复制"
    Set VbComp = ThisWorkbook.VBProject.VBComponents(模块)
    S = VbComp.CodeModule.Lines(1, VbComp.CodeModule.CountOfLines)
    Set NEWB = Workbooks.Add
    NEWB.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = 模块
    NEWB.VBProject.VBComponents(模块).CodeModule.AddFromString S
End Sub
新建工作表并复制宏.rar (14.23 KB, 下载次数: 36)

2012-10-22 21:15 上传

点击文件名下载附件

跳转到最佳答案楼层

suye1010

你可以参考这个帖子的内容来解决你的问题。

http://www.excelpx.com/thread-255562-1-1.html

zjdh

需要引用Microsoft Visual Basic For Application Extensibility 5.3
2007还要勾选“信任对VBA工程对象模型的访问”（在安全设置对话框中）
Sub 复制模块()
    模块 = "需要复制"
    Set VbComp = ThisWorkbook.VBProject.VBComponents(模块)
    S = VbComp.CodeModule.Lines(1, VbComp.CodeModule.CountOfLines)
    Set NEWB = Workbooks.Add
    NEWB.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = 模块
    NEWB.VBProject.VBComponents(模块).CodeModule.AddFromString S
End Sub
新建工作表并复制宏.rar (14.23 KB, 下载次数: 36)

2012-10-22 21:15 上传

点击文件名下载附件

xm2012

zjdh 发表于 2012-10-22 21:15
需要引用Microsoft Visual Basic For Application Extensibility 5.3
2007还要勾选“信任对VBA工程对象模型 ...

老师出手，果然厉害。谢谢！