PC-HELP.CZ

zdravim

mam takovej problem

potreboval bych makro :

kod skontroluje zda je soubor A.xls otevren, kdyz je A.xls jiz otevren pokracuje dalsi kod
kdyz neni pak A.xls otevre pokracuje dalsim kodem a potom zas soubor A.xls zavre.

pomuze nekdo?

dekuji moc

Zkuste něco takového:

Sub makro()
Dim v As Variant
Dim otevrit As Boolean


otevrit = True
For Each v In Workbooks

MsgBox v.Name
If v.Name = "A.xls" Then
otevrit = False
Exit For
End If
Next v

If otevrit Then
otevrit = False
' tu otevřít A.xls
' provést požadovaný kód
' zavřít a.xls
End If


End Sub

dekuji za prispevek, ale na dovysvetleni

mam dva soubori napriklad A.xls a B.xls....B.xls je propojeni s A.xls funkcemi a kdyz nemam A.xls otevren v B.xls se mi zobrazi jenom # nebo nic...

tak kdyz se da aktualizovat hodnoty v B.xls musi se spustit i A.xls a proto potrebuji ten kod a ne vsichni co B.xls pouzivaji to vedi :)

- kdyz aktualizuju hodnoty a neni otevren A.xls, by se mi A.xls otevrel a po aktualizacii souboru B.xls by se zase A.xls hned zavrel ...
- kdyz je A.xls otevren vykona se jen procedura ktera je uvedana pod souborem B.xls ale A.xls se nezavre ...

je to z duvodu ze nekdo chce videt i hodnoty v A.xls a nekdo A.xls videt pri aktualizaci nepotrebuje a pritom se taky procedura zrychli protoze soubory sou ulozeny na podnikovem servru

doufam ze jsem to lepe vysvetlil

moc dekuji

tedy zaden napad?

Takže něco takového?

ďakujem za ochotu ale pri spustení mi vypisuje chybu ...

"Objekt variable or With block variable not set"

Upravil jsem výše uvedené makro.