MS Excel

Mám takový dotaz, jak nemám rád PQ, tak jsem si udělal takovou tabulku na kurz eura.

Problém je, že zdroj má proměnný odkaz. Tedy odkaz obsahuje datum. Nevíte, jak např. pomocí makra tento problém vyřešit?

Děkuji za pomoc.

Zaslat odpověď >

Strana: 1 2 další »

lubo(9.2.2022 15:56)#052074

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

Lugr(9.2.2022 17:43)#052075

Sub Aktualisieren()

Dim wb As Workbook
Dim dotaz As String

Set wb = ThisWorkbook

DATUM = InputBox("Zadejte datum:", , Date)

dotaz = wb.Queries("Table 0").Formula

ActiveWorkbook.RefreshAll

End Sub

Myslel jsem, že by se to zadávalo přes InputBox, ale nevím jak.citovat

veny(10.2.2022 13:41)#052079

v excelu jsem použil pojmenovanou buňku "Date" se vzorcem DNES()
v PQ to co dával lubo pouze s úpravou aby dotaz načítal aktuální (dnešní) datum
když se podívám na stránky kurzy.cz a porovnám výstup v dotazu tak jsou načtená stejně jako na stránkách, ale aktualizace vaší tabulky je dělaná ve VBA a data se neaktualizují podle dotazu. VBA neholduji tak koukněte alespoň na tohle jestli by to vyhovovalo

Příloha: rar

52079_kurzy-men.rar (31kB, staženo 12x)

citovat

Lugr(10.2.2022 14:02)#052080

veny napsal/a:

v excelu jsem použil pojmenovanou buňku "Date" se vzorcem DNES()
v PQ to co dával lubo pouze s úpravou aby dotaz načítal aktuální (dnešní) datum
když se podívám na stránky kurzy.cz a porovnám výstup v dotazu tak jsou načtená stejně jako na stránkách, ale aktualizace vaší tabulky je dělaná ve VBA a data se neaktualizují podle dotazu. VBA neholduji tak koukněte alespoň na tohle jestli by to vyhovovaloPříloha: 52079_kurzy-men.rar (31kB, staženo 1x)

Tak bohužel na MS Office 2016 mi to nefungujecitovat

veny(10.2.2022 14:17)#052081

používám 2019 dotaz načte ze stránek data správně ale aktualizace tabulky neproběhne podle dotazu ale nechává stále stejné hodnoty, jak jsem psal VBA není moje kolo

citovat

lubo(10.2.2022 15:59)#052082

Všimnul jsem si dvou problémů.

V kódu dotazu má být:
html = Text.Replace(html_maska, "<<Datum>>", Date.ToText(datum, "d.M.yyyy") ),

Tj. ve formátu má být "M" a ne "m". Jinak stránka vrací (zřejmě) poslední data.

Dále je vhodné zakázat aktualizaci dotazu na pozadí:
Pravý klik na na dotaz "Table 0", vlastnosti, zrušit zaškrtnutí u "povolit aktualizaci na pozadí".citovat

Lugr(10.2.2022 17:51)#052083

A co je kód dotazu?

Přesně pro tohle PQ nepoužívám.

citovat

veny(11.2.2022 7:33)#052086

tak jsem zkusil v Office 2016.
předělal m->M v dotazu a dotaz načte aktuální data, nicméně po kliku na "Aktualisieren" dojde sice k aktualizaci dotazu ale nedojde aktualizaci tabulky v excel listu.
Přikládám soubor který mi v 2016 funguje.

Příloha: rar

52086_kurzy-men.rar (29kB, staženo 11x)

citovat

veny(11.2.2022 7:34)#052087

přikládám ještě screen kde je vidět že po "Aktualisieren" má dotaz načteny jiné hodnoty než ty které jsou v tabulce.

Příloha: png

52087_kurzy-men.png (68kB, staženo 16x)

citovat

Lugr(11.2.2022 9:58)#052089

No ale teď to aktualizuje ze stránky:

https://www.kurzy.cz/kurzy-men/nejlepsi-kurzy/EUR-euro/

ale já potřebuji z:

https://www.kurzy.cz/~nr/kurzy-men/nejlepsi-kurzy/EUR-euro/D-11.2.2022-Ordb--Ord--Z-3-s-/citovat

Strana: 1 2 další »

Téma: Kurz eura

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje