let
from = Web.Page(Web.Contents("http://cbr.ru/credit/101.asp?regnum=1481&when=0&dt=20181101")){1}[Data],
to = from[[#"Номер счета"],[#"Входящие остатки в рублях"]]
in
to
let
from = Web.Page(Web.Contents("http://cbr.ru/credit/101.asp?regnum=1481&when=0&dt=20181101")){1}[Data],
to = from[[#"Номер счета"],[#"Входящие остатки в рублях"],[#"Входящие остатки итого"]]
in
to
xelario, сделал вариант на VBA без PQ. Копирует на лист всю таблицу с указанной страницы (в течение примерно 20 сек.). Первые 3 строки смещены влево, остальное вроде нормально. Можно взять за основу и допилить под свои нужды.
Скрытый текст
Код
Sub Pars()
'aequit 16.03.2020
Application.ScreenUpdating = False
Dim oIE As InternetExplorer
Dim i As Long, j As Long
Dim s As String
Dim maPageHtml As HTMLDocument
Dim Htable
Dim maTable As HTMLTable
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 0 'видимость explorer - 0-скрыть 1-показать
s = "http://cbr.ru/credit/101.asp?regnum=1481&when=0&dt=20181101"
oIE.Navigate2 (s)
Do While oIE.Busy Or (oIE.ReadyState <> 4)
DoEvents
Loop
Set maPageHtml = oIE.Document
Set Htable = maPageHtml.getElementsByTagName("table")
Set maTable = Htable(1)
Worksheets(1).Cells.Clear 'очистка листа
For i = 1 To maTable.Rows.Length
For j = 1 To maTable.Rows(i - 1).Cells.Length
Worksheets("table").Cells(i, j) = maTable.Rows(i - 1).Cells(j - 1).innerText
Next j
Next i
oIE.Quit
Set oIE = Nothing
Application.ScreenUpdating = True
End Sub