Re: MAKRO do excelu

From: Ing.Ján Bystrianskŭ <JBystriansky (zavinac)>
Date: 26. 04. 2005, 08:40 CEST
M> Ako mozem otestovat, ci zadany sheet existuje? Aby som
M> mohol vypisat chybovu hlasku, namiesto toho aby pri zle
M> zadanom nazve makro padlo.

Mozes volat tuto funkciu:
funkcia akceptuje jeden argument (worksheet name) a vracia TRUE ak
existuje v aktivnom workbooku.

Private Function SheetExists(sname) As Boolean
'Returns TRUE if sheet exists in the active workbook
Dim x As Object
On Error Resume Next
Set x = ActiveWorkbook.Sheets(sname)
If Err = 0 Then SheetExists = True _
Else SheetExists = False
End Function


-- 
Zdravi,
Jani
mailto:JBystriansky@seznam.cz
Received on Tue, 26 Apr 2005 08:40:48 +0200

This archive was generated by hypermail 2.1.8 : 26. 04. 2005, 08:40 CEST