< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#055337
avatar
Takhle? bez toho Sub? 4

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

Workbooks.Open "bazant.xlsx", Password:="2345"
Workbooks("bazant.xlsx").Close SaveChanges:=Falsecitovat
#055339
elninoslov
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
#055343
avatar
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
#055344
elninoslov
Taká hračička 1
Snažil som sa obsiahnuť všetky možné situácie, čo by mohli nastať - viď komentáre v bunkách.
Příloha: zip55344_zaheslovanesubory.zip (91kB, staženo 10x)
citovat
#055349
avatar
Wow, díky moc! Tohle je fakt už vyšší level (alespoň z mého pohledu) :-)citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46