Оказывается, сайт поддерживает IE.
Тогда проверьте еще такую версию:
У меня работает, впрочем, что только у меня в Win10 не работает )
Если в Вашей Win11 уже нет IE, то по инфо от MS в его браузере (на форме/листе) должно будет работать.
Тогда проверьте еще такую версию:
| Код |
|---|
Sub UpdateTable()
' ZVI:2025-06-06 https://www.planetaexcel.ru/forum/?PAGE_NAME=message&FID=1&TID=17134
' IE version
Const FILE = "Table.htm"
Const URL = "https://www.e-disclosure.ru/portal/files.aspx?id=1976&type=3"
Dim i As Long, j As Long
Dim s As String, sFile As String
With CreateObject("InternetExplorer.Application")
.Silent = True
.navigate URL
While .Busy Or .readyState <> 4: DoEvents: Wend
s = .Document.body.innerHTML
.Quit
End With
i = InStr(s, "<table")
j = InStr(i + 1, s, "</table>")
If j = 0 Then
MsgBox "Site Table not found!", vbExclamation, "Exit"
Exit Sub
End If
s = "<html><body>" & vbLf & Mid(s, i, j - i + Len("</table>")) & vbLf & "</body></html>"
sFile = ThisWorkbook.Path & "\" & FILE
On Error Resume Next
With CreateObject("ADODB.Stream")
.Type = 2
.Mode = 3
.Charset = "UTF-8"
.Open
.WriteText s
.SaveToFile sFile, 2
.Close
End With
If Err Then MsgBox Err.Description, vbExclamation, "Error #" & Err
End Sub
|
У меня работает, впрочем, что только у меня в Win10 не работает )
Если в Вашей Win11 уже нет IE, то по инфо от MS в его браузере (на форме/листе) должно будет работать.
