MS Excel

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