Question

EXCEL VBA代码的问题？

我有若干个工作簿,每个工作簿的"数据"表格内有代码,是Sub CommandButton1_Click()
开头的.

我想新建一个工作簿,用来打开若干个工作簿,并把他们的代码做一下替换的操作,比如把
1000 替换成 2000.

请问这样的代码在新建的工作簿里应该怎么写啊?

Answer 1

Dim p$, f$
p = "c:\"
f = Dir(p & "*.xlx")
While f <> ""
With Workbooks.Open(p & f)
.VBProject.VBComponents.Remove
.VBProject.VBComponents.Import "a.bas"
End With
f = Dir()
Wend

工作原理，扫描所有的文件，移除里面的代码，重新导入。a.bas是标准工作簿导出的代码文件。
注意，代码运行的前提是安全里面设置信任对工程对象的访问。

Answer 2

示例代码：
Dim p$, f$
p = "c:\"
f = Dir(p & "*.xlx")
While f <> ""
With Workbooks.Open(p & f)
.VBProject.VBComponents.Remove
.VBProject.VBComponents.Import "a.bas"
End With
f = Dir()
Wend

工作原理，扫描所有的文件，移除里面的代码，重新导入。a.bas是标准工作簿导出的代码文件。
注意，代码运行的前提是安全里面设置信任对工程对象的访问。

追问

大师,我说的意思您可能没弄清楚.
我发到网盘里重新说了一遍.您看看.

Answer 3

若干个工作簿,的代码都一样的话，用楼上的肯定没错。