VBA|使用vba代码批量查找并替换vba代码

Sub CommandButton1_Click()
    On Error Resume Next
    Dim fd As FileDialog, it
    Dim fso As Object
    Dim file_name As String
    Dim strFolder As String
    Dim wb As Workbook
    Dim i As Integer
    Dim code
    Dim str1 As String
    Dim stra As String
    Dim codestr As String
    Dim num As Long
    Dim newstr As String
    str1 = "10.146.136.68"
    stra = "db_host"
    
    Set fd = application.FileDialog(msoFileDialogFilePicker)
    Set fso = CreateObject("Scripting.FileSystemObject")
  
    With fd
         .AllowMultiSelect = True
        If .Show = -1 Then
           For Each it In .SelectedItems
               file_name = fso.GetFileName(it)
               strFolder = it
               
               application.ScreenUpdating = False
               Set wb = Workbooks.Open(strFolder)
               For Each code In wb.VBProject.VBComponents
                   Debug.Print code.Name
                   num = code.codemodule.CountOfLines
                   For i = 1 To num
                       codestr = code.codemodule.Lines(i, 1)
                       If InStr(codestr, str1) Then
                           Debug.Print codestr
                           newstr = replace(codestr, str1, stra, 1)
                           code.codemodule.DeleteLines i
                           code.codemodule.InsertLines i, newstr
                       End If
                   Next i
               Next
               wb.Close True
               application.ScreenUpdating = True
           Next
        End If
    End With
    'Me.TextBox1.Text = d("file_name")
   
    MsgBox "附件处理成功"
End Sub