MS Excel

Téma: Souhrn dat ze zaheslovaných souborů

Zaslal/a April 29.8.2023 13:58

Dobrý den, potřebuju poradit s makrem.
Mám 74 zaheslovaných souborů a z každého potřebuju vytáhnout řádek součtů do jednoho souhrnu, který má 74 řádků a kde potřebuju aktualizovat údaje.
Každý řádek je jeden človek, jeden soubor, jedninečné heslo.
Co jsem tak vyčetla, mělo by to jít přes makro v souhrnném souboru, kdy se jednotlivé zaheslované soubory otevřou a zavřou. Nicméně nejsem schopná sestavit makro, aby vykonalo 74 kroků za sebou - aktualizovalo propojení s těmi zaheslovanými soubory.
Příklad:

Public Sub nacti1()
Workbooks.Open "bart.xlsx", Password:="1234"
Workbooks("bart.xlsx").Close
End Sub
Public Sub nacti2()
Workbooks.Open "bazant.xlsx", Password:="2345"
Workbooks("bazant.xlsx").Close
End Sub
Public Sub nacti3()
Workbooks.Open "burison.xlsx", Password:="6789"
Workbooks("burizon.xlsx").Close
End Sub

Ve VB se mi vytvoří 74 maker. Nejsem v makrech moc zběhlá a nedokážu ty příkazy dát správně.
Kdyby mi někdo dal nástřel, jak by to makro mělo vypadat, byla bych moc vděčná!!!
Děkuji.

Zaslat odpověď >

April(29.8.2023 14:21)#055337

Takhle? bez toho Sub?

Workbooks.Open "bart.xlsx", Password:="1234"
Workbooks("bart.xlsx").Close SaveChanges:=False

Workbooks.Open "bazant.xlsx", Password:="2345"
Workbooks("bazant.xlsx").Close SaveChanges:=Falsecitovat

elninoslov(30.8.2023 9:09)#055339

Nebudete predsa spúšťať 74 makier, alebo písať 74x ten istý úryvok kódu. Treba použiť cyklus. Názvy tých súborov máte niekde v zošite uložené aj s heslami?citovat

April(30.8.2023 11:33)#055343

Pronikla jsem jen do primitivních maker. Tohle je na mě už moc složitý, takže jdu cestou nejmenšího odporu, tj. prostě to nasekat za sebou.
Ale pokud to jde zjednodušit, aby si to hráblo do souboru, tak v tom není problém. Sešit s názvy a hesly si můžu udělat.
Děkuji.citovat

elninoslov(30.8.2023 14:27)#055344

Taká hračička

Snažil som sa obsiahnuť všetky možné situácie, čo by mohli nastať - viď komentáre v bunkách.

Příloha: zip

55344_zaheslovanesubory.zip (91kB, staženo 12x)

citovat

April(31.8.2023 7:27)#055349

Wow, díky moc! Tohle je fakt už vyšší level (alespoň z mého pohledu) :-)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.