excel - 搜索VBA代码中的文本(在哪一行)

Question

我想知道如何搜索 VBA 模块中的每一行并获取找到文本的任何行号。我想出了这样的事情:

Sub addProcedure()

Dim vbProj As VBIDE.VBProject
Dim vbComp As VBIDE.VBComponent
Dim vbCode As VBIDE.CodeModule

Dim strSearchPhrase As String
Dim strModuleName As String
Dim intLinesNr As Integer
Dim i As Integer
Dim intFoundLine As Integer

strModuleName = "Test"

Set vbProj = ActiveWorkbook.VBProject
Set vbComp = vbProj.VBComponents(strModuleName)
Set vbCode = vbComp.CodeModule

intLinesNr = vbCode.CountOfLines


For i = 1 To intLinesNr
  If vbCode.Find(strSearchPhrase, i, 1, -1, -1) Then
    intFoundLine = i
    Exit For
  End If
Next i

If foundline <> 0 Then MsgBox "Text found in " & intFoundLine & " line."


Set vbComp = Nothing
Set vbProj = Nothing
Set vbCode = Nothing
End Sub

它返回编译错误:ByRef 参数类型不匹配:

If vbCode.Find(strSearchPhrase, i, 1, -1, -1) Then

还有其他想法如何做到这一点吗？

Answer 1

也许将 Dim i As Integer 更改为 Dim i As Long 可以解决不匹配错误？

The CodeModule object has a Find method that you can use to search for text within the code module. The Find method accepts ByRef Long parameters.

来源-> http://www.cpearson.com/excel/vbe.aspx