< návrat zpět

MS Excel


Téma: VBA a Power Query rss

Zaslal/a 5.12.2016 14:23

Jeza.mAhoj, vím že možností jak načíst data z externího souboru je spousta, ale momentálně to zkouším pomocí Power Query a nějak nevím jak bych pomocí VBA mohl změnit cestu k souboru, když bych chtěl jiný.
Neměl by někdo nějaký tip?

V editoru pro Power Query vidím jakýsi M code:
let
Zdroj = Excel.Workbook(File.Contents("C:\Pokus.xlsm"), null, true),
SEZNAM_Table = Zdroj{[Item="SEZNAM",Kind="Table"]}[Data],
#"Změněný typ" = Table.TransformColumnTypes(SEZNAM_Table,{{"CC", Int64.Type}, {"AUTOR", type text}, {"PRODUKT", type text}, {"KOD", Int64.Type}, {"TEXT", type text}, {"BARCODE", type text}})
in
#"Změněný typ"

Otázkou je jak pomocí VBA změnit např. C:\Pokus.xlsm na D:\Pokus.xlsm

Když nepůjde vyřeším jinak, když půjde budu rád :-)
Díky za jakýkoliv tip
M@

Zaslat odpověď >

#033689
avatar
Ahoj! Asi až od 2016:
https://blog.crossjoin.co.uk/2015/06/10/power-queryexcel-2016-vba-examples/citovat
#033696
Jeza.m
Díky za tip, bohužel to opravdu asi půjde až od 2016, protože
ActiveWorkbook.Queries
mi to vůbec nebere :-/.

Ale je fajn vidět že to možná půjde :-).

M@citovat
#033720
MePExG
Tento problém dosť často vzniká aj v iných programoch. Ja som ho začal riešiť bat súborom, ktorý mávam umiestnený pri spracovacom súbore. Výtvaram pomocu neho substitúciu z adresára zdrojových súborov na disk Q. A tak všetky súbory načítavam z tohoto disku. Podľa tohoto linku by sa mal dať cesta zparametrizovať z vlastného vyhodnocovacieho súboru, ale tu vzniká potreba upravovať každý jeden PQ dotaz a po premiestnení zdrojových súborov zmeniť predvolenú (takto načítanú) cestu.
https://www.youtube.com/watch?v=gK2yBpiITvI&list=TLGGBOZOUl-DedowODEyMjAxNgcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje