MS Excel

Téma: Ověření, zda je sešit otevřený

Zaslal/a bloom 25.6.2014 15:03

Ahoj, pracuji s makrem, které postupně otevírá všechny sešity v konkrétní složce a v nich provede určitou akci. Když je ale některý ze sešitů složky už otevřený, tak se samozřejmě zobrazí chyba. Potřeboval bych kód upravit tak, aby se v případě, když je některý ze souborů ve složce již otevřený, zobrazil MsgBox s upozorněním a makro by se zastavilo. Svou část kódu spojenou s otevíráním jednotlivých sešitů přikládám níže. Mockrát děkuji za pomoc. bloom
FolderName = "\\C:\Prace\"
If Right(FolderName, 1) <> Application.PathSeparator Then FolderName = FolderName & Application.PathSeparator
Fname = Dir(FolderName & "*.xlsm")
Do While Len(Fname)

Zaslat odpověď >

Palooo(25.6.2014 15:09)#020153

toto sa casto riesi. Idealne je to urobit cez funkciu ako je to urobene tu:
http://stackoverflow.com/questions/9373082/detect-whether-excel-workbook-is-already-open-using-vba citovat

bloom(25.6.2014 15:15)#020154

Jasně, já jsem se po tom už také pídil, ale bohužel mi to házelo chybu a to nejspíš proto, že v kódu pracuji se všemi soubory ve složce, ne s jedním konkrétním jako je uvedený v příkladu.citovat

Palooo(25.6.2014 15:18)#020155

prilozte prilohucitovat

Palooo(25.6.2014 16:07)#020159

tak prilozim svoj test folder .... verim tomu ze som sa zas netrafil ... a tam je jasne vidiet ze ten priklad funguje

Příloha: zip

20159_new-folder.zip (35kB, staženo 42x)

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.