VBA操作VBA——代码操作

有了前面VBA工程对象的基础，要操作代码就容易了，只要找到对象对应的属性、方法就可以。

在Excel中，VBA代码存放的地方是模块、类模块、窗体，这些在VBA工程模型中叫做VBComponents。

1、VBComponents：

就像在Workbook中操作Worksheet一样，遍历VBComponents：

代码语言：javascript复制

Sub TestVBComponent()
    Dim v As VBComponent
    
    For Each v In ThisWorkbook.VBProject.VBComponents
        Debug.Print v.Name, v.Type
    Next
End Sub

VBComponent的Type属性，返回的就是组件的类型，在F2打开的对象浏览器中可以查看它的枚举类型vbext_ComponentType.

2、读取代码：

要读取某个组件的代码，只要按对象的层级一级一级往下找对象就可以：

代码语言：javascript复制

Sub ReadVBACode()
    Dim cm As CodeModule
    
    Set cm = ThisWorkbook.VBProject.VBComponents("MMain").CodeModule
    
    Debug.Print cm.Lines(1, cm.CountOfLines)
End Sub

VBComponents的使用方法和Worksheets差不多，都是既可以按照名称找到对象，又可以根据索引来找。

CodeModule就是保存VBA代码的窗口，要读取CodeModule的代码，需要指定对应的起始行和终止行。

3、写入代码：

能读取代码自然也可以写入代码，只需要换一换对象的方法即可：

代码语言：javascript复制

Sub WriteVBACode()
    Dim cm As CodeModule
    
    Set cm = ThisWorkbook.VBProject.VBComponents("MMain").CodeModule
    
    cm.InsertLines 1, "Test WriteVBACode"
End Sub

vba 编程算法

0 人点赞