makro otevri soubor

[ironm]

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

[Reklama]

[Jjg]

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

[ironm]

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

[ironm]

tedy zaden napad?

[cmuch]

Takže něco takového?

Kód: Vybrat vše

Sub AktualizujSoubor()

  Dim zdrojsesit As Variant, cilsesit As Variant
 
  On Error GoTo Err
  ' definovani sesitu
  zdrojsesit = "A.xls"
  cilsesit = "B.xlsm"
 
  Workbooks(zdrojsesit).Activate
 
  GoTo NoErr
 
Err:
  ' otevre soubor (v uvozovkach upravit cestu k adresari
  Workbooks.Open Filename:="c:\dokumenty\" & zdrojsesit

NoErr:

  ' kod
  MsgBox "sem prijde napsat makro co ma probehnout"
 
  Workbooks(zdrojsesit).Close False

End Sub



[ironm]

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

"Objekt variable or With block variable not set"

[cmuch]

Upravil jsem výše uvedené makro.