[求助]如何导出所有宏(狼版再看看,谢谢)

ce100818 · 发表于 2008-9-28 13:48

如何将VBE中

模块/工作表/工作簿及窗体等内的所有代码一次导出?

谢谢

[此贴子已经被作者于2008-9-28 20:33:21编辑过]

northwolves · 发表于 2008-9-28 18:15

Sub Exportall()
Dim code
For Each code In ThisWorkbook.VBProject.VBComponents
code.Export ThisWorkbook.Path & "\" & code.Name & "." & Split("cls bas cls frm")(code.Type Mod 4)
Next
End Sub

northwolves · 发表于 2008-9-28 18:17

如果添加了对“Microsoft Visual Basic for Applications Extensibility * ”的引用，第一句可准确定义为：

Dim code As VBComponent

ce100818 · 发表于 2008-9-28 20:12

提示'VBProject方法作用于workbook对象失败

For Each code In ThisWorkbook.VBProject.VBComponents

烦请狼版再看看

ce100818 · 发表于 2008-9-28 20:19

唔,明白了,查到需要在安全中运用信任所有访问

非常感谢狼版

ce100818 · 发表于 2008-9-28 20:32

导出之后文件名为

Sheet1.cls

Sheet2.cls

Sheet3.cls

ThisWorkbook.cls

模块1.bas

模块2.bas

接着再问三个问题

1.如何对上边的几个文件用语句进行操作,使它们里面的内容能复制到一张工作表中(便于分析)

2.如何再将工作表中修改的代码用语句操作转到上边的文件内

3.再用语句将上边的文件转至VBE中

问得有点多,劳驾版主大人不吝赐教,感激涕零!

wolf412 · 发表于 2009-1-2 22:59

你搞得太复杂了，不就是原来的文件或者VBA加密了吗？破解打开不就OK了！

l2002b · 发表于 2009-1-3 00:17

很不错的dd，谢谢分享

fdd · 发表于 2009-2-9 00:35

明白了，这个知识总算掌握了。

bibisin · 发表于 2009-3-16 21:18

谢谢版主分享

		自动登录	找回密码
密码			免费注册