用于VBA编辑的Excel插件

需要在预先存在的VBA Excelmacros中replace与正则expression式匹配的模式，最好使用Excel Forms。 如何创build这样一个Excel插件，在一键安装后显示在function区中。

作为新手，任何指针都会有所帮助。

Answer 1

您可以通过VBA与对象VBComponent访问VBA代码。

你将会改变一些安全选项，以便以编程方式访问你的VBA项目（在法语中，这个选项被称为“Accèsapprouvéaumodèled'objet du projet VBA”）

Sub ModifyVBACode() Dim sCodeSource As String 'Get the source code in a string' With ThisWorkbook.VBProject.VBComponents("CodeName").CodeModule sCodeSource = .Lines(1, .CountOfLines) End With 'modify your code' With ThisWorkbook.VBProject.VBComponents("CodeName").CodeModule 'Delete the old source code' .DeleteLines 1, .CountOfLines 'write the new one' .AddFromString sCodeSource End With End Sub 

希望这可以帮助