[已解决]怎么用宏创建另一个宏？

水中游

请教下，怎么通过宏创建另一个宏呢？比如运行一个宏给sheet2创建写入宏代码呢？

最佳答案

月排行榜 / 总排行榜

zjdh

2016-9-14 16:53

给sheet2写个宏
Sub 写入宏()
    With ActiveWorkbook.VBProject.VBComponents(3).CodeModule
        .InsertLines 1, "Sub test()"
        .InsertLines 2, "  msgbox ""hello, How do you do!"""
        .InsertLines 3, "End Sub"
    End With
End Sub

跳转到最佳答案楼层

zjdh

给sheet2写个宏
Sub 写入宏()
    With ActiveWorkbook.VBProject.VBComponents(3).CodeModule
        .InsertLines 1, "Sub test()"
        .InsertLines 2, "  msgbox ""hello, How do you do!"""
        .InsertLines 3, "End Sub"
    End With
End Sub

su45

还有这种需求？！

水中游

su45 发表于 2016-9-14 17:38
还有这种需求？！

太好了，谢谢了，excel是表下载的每次不一样，我想用电脑上类模块宏给不同的excel表创建宏，这样表换电脑也能用了。

水中游

zjdh 发表于 2016-9-14 16:53
给sheet2写个宏
Sub 写入宏()
    With ActiveWorkbook.VBProject.VBComponents(3).CodeModule

再请教下啊，With ActiveWorkbook.VBProject.VBComponents(3).CodeModule，这里面3是什么意思呢，我测试后知道是在sheets(2)写代码，为什么是3呢？

zjdh

水中游 发表于 2016-9-16 15:25
再请教下啊，With ActiveWorkbook.VBProject.VBComponents(3).CodeModule，这里面3是什么意思呢，我测试 ...

1写入ThisWorkbook，

2写入Sheet1，

3写入Sheet2

...….

zjdh

也可这样写
Sub 写入宏()
    With ActiveWorkbook.VBProject.VBComponents("Sheet2").CodeModule
        .InsertLines 1, "Sub test()"
        .InsertLines 2, "  msgbox ""hello, How do you do!"""
        .InsertLines 3, "End Sub"
    End With
End Sub

水中游

zjdh 发表于 2016-9-16 16:27
1写入ThisWorkbook，2写入Sheet1，3写入Sheet2...….

原来是这么回事，又学习了，谢谢了