On Error Resume Next
Workbooks("XY").Activate
If Not Err.Number = 0 Then
Workbooks.Open "XY"
End If
On Error Goto 0citovat
Workbooks("XY").Activate
If Not Err.Number = 0 Then
Workbooks.Open "XY"
End If
On Error Goto 0citovat
Zaslal/a bordov 16.4.2013 12:02
Potřeboval bych nějakou funkcí zjistit,
zda mám otevřený konkrétní soubor, pokud
ano, tak ho "Activate", pokud ne, tak ho otevřu
"Workbooks.Open".
Díky za pomoc.
Laďa
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.