Mám takový dotaz, jak nemám rád PQ, tak jsem si udělal takovou tabulku na kurz eura.
52073_kurzy-men.zip
Adresa v dotazu je normální text. V PQ se to opraví snadno:
let
datum = #date(2022,2,9),
html_maska = "https://www.kurzy.cz/~nr/kurzy-men/nejlepsi-kurzy/EUR-euro/D-<<Datum>>-Ordb--Ord--Z-3-s-/",
html = Text.Replace(html_maska, "<<Datum>>", Date.ToText(datum, "d.m.yyyy") ),
Zdroj = Web.Page(Web.Contents(html)),
...
Datum je tu natvrdo, nenapsal jsi, kde se má brát. Asi bych ho četl z listu.
ve vba je to podobné:
Dim wb As Workbook
Dim dotaz As String
Set wb = ThisWorkbook
dotaz = wb.Queries("Table 0").Formula
v proměnné dotaz je text dotazu. Musíš jen najít datum, nahradit ho a vrátit opravený dotaz zpět.
Za mne je řešení přes PQ snažší.citovat
let
datum = #date(2022,2,9),
html_maska = "https://www.kurzy.cz/~nr/kurzy-men/nejlepsi-kurzy/EUR-euro/D-<<Datum>>-Ordb--Ord--Z-3-s-/",
html = Text.Replace(html_maska, "<<Datum>>", Date.ToText(datum, "d.m.yyyy") ),
Zdroj = Web.Page(Web.Contents(html)),
...
Datum je tu natvrdo, nenapsal jsi, kde se má brát. Asi bych ho četl z listu.
ve vba je to podobné:
Dim wb As Workbook
Dim dotaz As String
Set wb = ThisWorkbook
dotaz = wb.Queries("Table 0").Formula
v proměnné dotaz je text dotazu. Musíš jen najít datum, nahradit ho a vrátit opravený dotaz zpět.
Za mne je řešení přes PQ snažší.citovat
52087_kurzy-men.png
RSS nejnovější články