< návrat zpět

MS Excel

Téma: Přenos dat rss

Zaslal/a Lugr 30.3.2019 1:09

LugrDobrý den,

mám makro na přenos dat, z jednoho sešitu do druhého, jednu část mám vyřešenou, ale s tou druhou si nevím rady. Je to ta část kdy potřebuji data přiřadit k datumu (29.03.19) v týdnu.

Zvládl by mi někdo pomoci?

Děkuji

Příloha: zip43056_prenos-dat.zip (41kB, staženo 28x)
Zaslat odpověď >
Strana:  1 2   další »
elninoslov(30.3.2019 11:39)#043059
elninoslov
Ten list sa volá v zdrojových súboroch vždy rovnako ? Ak áno, tak súbor neotvárajte, to je najpomalšie. Namiesto toho, vložte odkazy pomocou vzorcov na bunky daného súboru s následným prevodom na hodnoty. Je to rýchle.

Ak sa ten list nevolá rovnako, tak je ešte možnosť napr. cez ADO zistiť názov listu, čo bude tiež rýchlejšie ako Open.

Aj tak tam ale vidím riziko, že niekto otvorí omylom úplne iný súbor XLS, ktorý nebude mať s požadovanými dátami nič spoločné. Chcelo by to ešte nejakú kontrolu validity súboru.
Příloha: zip43059_cil.zip (33kB, staženo 28x)
citovat
Lugr(30.3.2019 14:41)#043061
Lugr
Zdrojový soubor má vždy přidělený datum (např. 2019.03.29_Zdroj), ale list se vždy jmenuje stejně.

Zkusím to implementovat do mého souboru.

Moc si vážím pomoci a děkuji.citovat
Lugr(30.3.2019 19:17)#043062
Lugr
Tak to funguje super, děkuji.citovat
Lugr(2.4.2019 21:50)#043085
Lugr
Mohl bych mít ještě jednu prosbu?

Šlo by místo ručního výběru souboru použít InputBox
Když zdrojový soubor má vždy přidělený datum (např. 2019.03.29_Zdroj) do InputBox by se zapsal datum a makro by si doplnilo &"_Zdroj" vyhledalo atd...?
Příloha: png43085_inputbox.png (4kB, staženo 35x)
43085_inputbox.png
citovat
elninoslov(3.4.2019 1:14)#043086
elninoslov
Skúste takéto niečo na rýchlo. Dvojklik na dátum v riadku 7, 26, 45 importne súbor s daným dátumom ak existuje v adresári s týmto súborom.
Příloha: zip43086_prenos-dat.zip (72kB, staženo 24x)
citovat
Lugr(3.4.2019 5:47)#043087
Lugr
Tý jo, to je na rychlo jo? 1 Já bych to vymýšlel roky stejně bych nic nevymyslel.

Nešlo by to tam spíše nějak zapsat toto:

Sub Import_dat()

Datum = InputBox("Zapište datum.")
ok = Append("C:\Users\lukas\OneDrive\Plocha\Prenos dat" & Datum & "_Zdroj.xls")
' zde by makro poračuje
'
'
'citovat
elninoslov(3.4.2019 9:49)#043089
elninoslov
???
Příloha: zip43089_cil.zip (34kB, staženo 26x)
citovat
Lugr(3.4.2019 9:58)#043090
Lugr
Hned jak budu u PC, kouknu na to. Děkuju za tak rychlou zpětnou vazbu.citovat
Lugr(3.4.2019 16:35)#043091
Lugr
Bohužel soubor Cíl není součástí složky se soubory Zdroj a v makru mi teď pro změnu chybí cesta k souborům Zdroj.

něco jako:
C:\Users\lukas\Downloads\43086_prenos-dat\Prenos dat\Format(Datum, "yyyy.mm.dd") & "_Zdroj.xls

Omlouvám se jestli jsem to nezmínil.citovat
elninoslov(3.4.2019 17:45)#043092
elninoslov
To je len 1 riadok s premennou.
Příloha: zip43092_cil.zip (34kB, staženo 29x)
citovat

Strana:  1 2   další »

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