MS Excel

Téma: Čtení a zápis (makro)

Zaslal/a sebulba 20.6.2019 13:20

Zdravím a prosím vás o pomoc s makrem, jelikož vba není má silná stránka.
Mám dva excel soubory - první obsahuje data a rovněž makro.
Druhý soubor je proměnný (n souborů s různým názvem ale stejnou strukturou).

Idea (funkční):
2 soubory:
Dim x As Workbook
Dim y As Workbook
z prvního souboru (x) s daty a makrem (cca. 200 řádků) budu číst 6 buněk, které uložím do proměnné, např.:
Dim hodnota As Variant
hodnota = x.Sheets("List1").Range("C5").Value
atd...
Otevřu druhý sešit (y) a vložím načtené hodnoty:
Set y = Workbooks.Open("c:\nazev_druheho_sesitu.xls")
y.Sheets("List1").Range("C6").Value = hodnota
atd...
Následně uložím/zavřu sešit y:
y.Close SaveChanges:=True

Cílový stav:
Vytvořit smyčku pro všechny řádky sešitu x a ze předpokladu, že sešit x v A1 buňce obsahuje záznam, resp. A1 není prázdná, otevři sešit y, který se jmenuje viz. záznam A2 ze sešitu x a vlož načtené hodnoty, ulož, uzavři a opakuj pro další záznam, kde A1 není prázdná.

Jsem laik a pouhý "lepič" kódu a požadované řešení je pro mne celkem oříšek. Moc děkuji za ochotu a pomoc!

Zaslat odpověď >

Stalker(28.6.2019 8:29)#043616

Ten popis funkce není nic moc, chtělo by to přiložit vzorové soubory s lepším popisem.citovat

MePExG(28.6.2019 20:34)#043622

Nechce sa mi tu vypisovať dá sa použiť nástroj Power Query. Ak máte verziu Exclu od 2010 do 2013 je PQ ako doplnok, alebo od v 2016 je už obsiahnutý. V tomto http://wall.cz/index.php?m=topic&id=43500#post-43509príspevku som ponúkol takéto riešenie (načítanie údajov zo súborov z adresára a spoločné vyhodnotenie).citovat

Uživatelské menu

Nejste přihlášen(a)

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.