vba - 如何使用VBA编写VBA代码

Question

我一直在研究使用 VBA 编写 VBA 代码。所以最终我可以编写一个算法来根据输入的变量编写循环。

我遇到了下面的情况，它看起来好像会将代码添加到 VBA 项目中，但我缺少一些让它工作的东西。努力寻找这方面的任何东西。我知道“ThisWorkbook”是问题所在。关于我需要调用它以便能够在 VBA 项目中引用该表(同名)的任何想法。

谢谢

Option Explicit

Sub test()

Dim WB_Write_Code_Test As Workbook
Dim WS_Test As Worksheet
Dim nextline As Long

Set WB_Write_Code_Test = Workbooks.Open("Write Code Test")

Set WS_Test = WB_Write_Code_Test.Sheets("Test")

With ActiveWorkbook.VBProject. _
VBComponents(ThisWorkbook).CodeModule

nextline = .CountOfLines + 1

.InsertLines nextline, WS_Test.Cells(1, 1).Value
End With

End Sub

Answer 1

谢谢，已经做到了。

作为引用，缺少的代码是:

VBComponents(ThisWorkbook.CodeName).CodeModule