Set rs = CreateObject("ADODB.Recordset")

' макрос подхватывает уже открытое окно IE и начинает работу
Do

Dim sApplicationName As String
sApplicationName = "Internet Explorer"
Dim WshShell
Dim oShellWindows As New SHDocVw.ShellWindows
Dim oie As SHDocVw.WebBrowser
Dim brows_check As String
Dim sFlag As Boolean
sFlag = False
browser_URL = "какой-то сайт"
If oShellWindows.Count = 0 Then
MsgBox "IE не открыт!", vbCritical
Exit Sub
End If

For Each oie In oShellWindows
If oie.Application = sApplicationName And Left(oie.LocationURL, 11) = browser_URL Then
    bFlag = True

If bFlag = False Then
MsgBox "IE не открыт!", vbCritical
Exit Sub
End If

Exit For
End If
Next oie
Sleep (300)
Loop Until oie = "Internet Explorer"
Application.Wait (Now + TimeValue("0:00:03"))

''''''''''''''''''''
' тут идет определенный код

''''''''''''''''''''
'При помощи данного кода открывается новое окно IE и закрывается старое, после чего макрос идет в начало кода и повторно подхватывает IE и продолжает работу:

Set IE = CreateObject("InternetExplorer.Application") ' открывается новое окно IE
IE.Visible = True
IE.navigate "какой-то сайт" 'переход на нужный URL

shell_count = oShellWindows.Count ' запоминаем сколько окон открыто
oie.Quit ' закрывает старое окно IE (как раз тут проблема - окно не закрывается)

Do
DoEvents
Loop Until oShellWindows.Count = shell_count - 1 ' ждем, когда окон станет на 1 меньше

Set oie = Nothing

' далее макрос идет в начало данного кода

Set x = Text.Range("a:s").Find(find_text.Cells(i, 1), , xlValues, xlWhole)

Set x = Text.Range("a:s").Find(find_text.Cells(i, 1) & Cells(i, 2) & Cells(i, 3), , xlValues, xlWhole)

Sub test()

 Set find_text = Worksheets("find_text")
    Set find_text_sheet = Worksheets("find_text_sheet")
    Set result = Worksheets("result")
    Dim x As Range
   
    LRow = find_text.Cells(Rows.Count, 1).End(xlUp).Row
    
    If LRow = 1 Then
        MsgBox "Нет данных на листе"
        Exit Sub
    End If
     
    For i = 1 To LRow
    
    Set x = find_text_sheet.Range("a:p").Find(find_text.Cells(i, 1), , xlValues, xlWhole)
    If Not x Is Nothing Then
        LRow_result = result.Cells(Rows.Count, 1).End(xlUp).Row + 1
        result.Rows(LRow_result).EntireRow.Value = find_text_sheet.Rows(x.Row).EntireRow.Value
    End If
 
    Next i

End Sub

Public Const sAppName As String = "Internet Explorer"


sub ie_macro()

new_ie:

Dim oShellWindows As New SHDocVw.ShellWindows
Dim ie_browser As SHDocVw.WebBrowser
Dim sFlag As Boolean
sFlag = False
If oShellWindows.Count = 0 Then
MsgBox "Браузер не открыт!", vbCritical
Exit Sub
End If
For Each ie_browser In oShellWindows
If ie_browser.Application = sAppName Then
    bFlag = True
    ie_browser.Visible = False
    ie_browser.Visible = True

If bFlag = False Then
MsgBox "Браузер не открыт!", vbCritical
Exit Sub
End If

Exit For
End If
Next ie_browser


ie_browser.document.getElementById("text_1").Value = "Какой-то текст 1"
ie_browser.document.getElementById("text_2").Value = "Какой-то текст 2"

end sub

new_ie:

 If new_ie_id = 1 Then
 
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "Необходимый URL сайта"
        Application.Wait (Now + TimeValue("0:00:03"))
ie_browser.Quit
Set ie_browser = Nothing
new_ie_id = 0
        Application.Wait (Now + TimeValue("0:00:03"))
        
        
GoTo new_ie:
 
 
End If

call ie_macro

Public Const sAppName As String = "Internet Explorer"sub ie_macro()

new_ie:

Dim oShellWindows As New SHDocVw.ShellWindows
Dim ie_browser As SHDocVw.WebBrowser
Dim sFlag As Boolean
sFlag = False
If oShellWindows.Count = 0 Then
MsgBox "Браузер не открыт!", vbCritical
Exit Sub
End If
For Each ie_browser In oShellWindows
If ie_browser.Application = sAppName Then
    bFlag = True
    ie_browser.Visible = False
    ie_browser.Visible = True

If bFlag = False Then
MsgBox "Браузер не открыт!", vbCritical
Exit Sub
End If

Exit For
End If
Next ie_browser


ie_browser.document.getElementById("text_1").Value = "Какой-то текст 1"
ie_browser.document.getElementById("text_2").Value = "Какой-то текст 2"

end sub

data-ng-click = "addText()"

Call ie.document.parentWindow.execScript("addText()")

On Error Resume Next
Do While True
Err.Clear

For Each text_item In oie.document.getElementsByClassName("textbox")
MsgBox text_item.innerText
Next text_item

If Err.Number = 0 Then
    On Error GoTo 0
    Exit Do
End If
DoEvents
Loop

On Error Resume Next
Do While True
Err.clear
oie.document.parentWindow.execScript "angular.element('[data-ng-model=""text""]').scope().text = 'какой-либо текст';"
If Err.Number = 0 Then
    On Error GoTo 0
    Exit Do
End If
DoEvents
Loop

On Error Resume Next
Do While True
oie.document.parentWindow.execScript "angular.element('[data-ng-model=""text""]').scope().text = 'какой-либо текст';"
If Err.Number = 0 Then
    On Error GoTo 0
    Exit Do
End If
DoEvents
Loop

On Error Resume Next
Do While True
oie.document.parentWindow.execScript "angular.element('[data-ng-model=""text""]').scope().text = 'какой-либо текст';"


For Each aa In oie.document.getElementsByTagName("input")
If aa.getAttribute("data-ng-model") = "text" Then
If Len(aa.Value) > 0 Then

Exit Do
End If
End If
Next aa

If Err.Number = 0 Then

On Error GoTo 0
Exit Do

End If
DoEvents
Loop

On Error Resume NextDo While True
oie.document.parentWindow.execScript "angular.element('[data-ng-model=""text""]').scope().text = 'какой-либо текст';"
If Err.Number = 0 Then
    On Error GoTo 0
    Exit Do
End If
DoEvents
Loop

On Error GoTo 0
ExitDo

oie.document.parentWindow.execScript "angular.element('[data-ng-model=""text""]').scope().text = 'какой-либо текст';"