IE.Navigate (Url)

Set maTable1 = Htable(НомерТаблицы)

ффф3 = maTable1.Rows(Строка).Cells(7).innertext

<td colspan=2><select name="st_filial"
                           onchange="if(this.options[this.selectedIndex].value==='N'){document.getElementById('tr_egr').style.display='none';document.getElementById('tr_forg').style.display='none';}else{document.getElementById('tr_egr').style.display='';document.getElementById('tr_forg').style.display='';}"><option
                                        value=""></option>
                                  <option value="Y"
                                  >Организация
                                        имеет филиалы</option>
                                  <option value="N"
                                  >Организация
                                        не имеет филиалов</option>
                    </select></td>

   For Each n In IE.Document.getElementsByTagName("select")
        If n.Name = "st_filial" Then
            n.Option.Value = "Y"'ЭТО ЗНАЧЕНИЕ ВСЕГДА EMPTY
            n.Value = "Организация не имеет филиалов"'НЕ ВСТАВЛЯЕТСЯ
        End If
    Next

   Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True 'False '
Вкладка = Url
IE.Navigate (Вкладка)
    Do Until IE.ReadyState = 4 'Конструкция цикла этого ждет, пока полностью не откроется страница в браузере
        DoEvents
    Loop
aaa = IE.Document.getElementsByTagName("TEXTAREA").Value

   For i = 331 To IE.Document.all.Length - 1
        у34 = IE.Document.all.Item(i).innerText
        у35 = IE.Document.all.Item(i).Value
        у36 = IE.Document.all.Item(i).tagName
        If Trim(у34) = "" Then GoTo 22
        MsgBox IE.Document.all.Item(i).innerText, vbInformation, "Элемент № " & i
22     Next i

IE.Document.all.Item(i).innerText = 112

aaa = IE.Document.getElementsByTagName("TEXTAREA").Value

aaa = IE.Document.getElementsByTagName("TEXTAREA").innerText

Url = "ХХХХХХХ"
S = DownloadString(Url) 'Загружаем текст страницы
...
Function DownloadString(ByVal Url$) As String 'Функция скачивания текста страницы
Dim W
    Set W = CreateObject("Microsoft.XMLHTTP")

 URL = "https://******"
        On Error Resume Next
            Set IE = CreateObject("InternetExplorer.Application")
                IE.Visible = True
            IE.Navigate (URL)

ПутьКпапке = ThisWorkbook.Path & "/"
s = Dir(ПутьКпапке & "*.*")
Do While s <> ""
s = Dir
Loop

ActiveSheet.Hyperlinks.Add Anchor:=Selection.Offset(0, 2), Address:= _
FolderForHipr, TextToDisplay:= _
Selection.Offset(0, 2).Value

ПутьГиперссылки = Cells(Selection.Row, 4).Hyperlinks(1).Address
sFolder = ПутьГиперссылки & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
sFiles = Dir(sFolder & "*.doc*")
Do While sFiles <> ""
MsgBox sFiles
Loop

ПутьГиперссылки = Cells(Selection.Row, 4).Hyperlinks(1).Address

Dim ДаннОбъект As Object        
Dim ДаннФайл As Object
Set ДаннОбъект = CreateObject("Excel.Application") 'создание объекта Excel
Set ДаннФайл = ДаннОбъект.Workbooks.Open(FileName:=iFileName, ReadOnly:=True)
'код по работе с Экселем
ДаннОбъект.Quit
'продолжение кода

Dim WordApp As Object
Dim iFileName As String
Dim wdDoc As Object

    Set WordApp = CreateObject("Word.Application") 'создание объекта WORD
    WordApp.Visible = True

WordApp.Visible = True

    Dim MyData As DataObject
    eee = Left(Target.Address(0, 0), 1)
    If eee = "I" Or eee = "K" Then
        rrr = Target.Value
        Set MyData = New DataObject
        MyData.SetText rrr
        MyData.PutInClipboard
        MsgBox rrr & " Скопировано в буфер"
        Cancel = True
    End If