合并VBA代码，非合并数据，也非合并工作表薄

LMY123

同一文件夹下有ABC三个工作薄，各有一个代码A，B，C,怎么把这3个代码合并在一起
合并代码.rar (35.07 KB, 下载次数: 12)

2018-12-31 17:04 上传

点击文件名下载附件

Sub A()
[A1] = 1
End Sub
Sub B()
[B1] = 2
End Sub
Sub C()
[C1] = 3
End Sub

microyip

1. Sub All()
   
2. '注意下面的工作簿和工作表需要自行设定
   
3. 工作簿A.工作表名.[A1]=1
   
4. 工作簿B.工作表名.[B1]=2
   
5. 工作簿C.工作表名.[C1]=3
   
6. End Sub

复制代码

LMY123

microyip 发表于 2018-12-31 17:26

感谢大师的帮助，抱歉，我没说清楚，我不是要操作工作表，薄，只是想把各工作薄的VBA代码合并到一个工作薄中。

microyip

LMY123 发表于 2018-12-31 17:35
感谢大师的帮助，抱歉，我没说清楚，我不是要操作工作表，薄，只是想把各工作薄的VBA代码合并到一个工作 ...

那就不明白你在说什么了，什么叫合并，直接去掉中间的"Sub……"和"End Sub"也是合并啊

kzg2013

Sub srchmodule()

Dim fso, fl, fd As Object

Set fso = CreateObject("scripting.filesystemobject")

wb = ActiveWorkbook.Path


Set fd = fso.getfolder(wb)

For Each fl In fd.Files
    If fl.Name <> ActiveWorkbook.Name Then


     t = GetObject(fl).VBProject.VBComponents("模块1").CodeModule.CountOfLines

     s = s & Chr(10) & GetObject(fl).VBProject.VBComponents("模块1").CodeModule.Lines(1, t)



      GetObject(fl).Close

    End If
Next
MsgBox s

On Error Resume Next
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("模块1")

ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "模块1"

ActiveWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString s

End Sub

LMY123

kzg2013 发表于 2018-12-31 18:05
Sub srchmodule()

Dim fso, fl, fd As Object

感谢大师的帮助，效果非常好，如果每个工作薄有多个模块，能否循环提取所有模块呢？

wowpod

楼主，请你完成我的程序！