< návrat zpět

MS Excel

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

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
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
elninoslov(30.8.2023 9:09)#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
April(30.8.2023 11:33)#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
elninoslov(30.8.2023 14:27)#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 12x)
citovat
April(31.8.2023 7:27)#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

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