RSS registrovat login
Archiv / ActiveX
Re: Excel Workbook - existence Worksheet [30|3274411]
Vložil: fukami
Datum: 23.1.2012 21:48:22

Možná to není úplně efektivní, ale jde to zjišťovat takto:

Public Function GetSheetIndex(SheetCaption As String) As Integer
Dim mySheet As Worksheet
For Each mySheet In ThisWorkbook.Worksheets
If mySheet.Name = SheetCaption Then
GetSheetIndex = mySheet.Index
End If
Next
End Function

pak stačí test na <> 0.
--
Autor: fukami
Forum: ActiveX
Odkaz: http://forum.builder.cz/read.php?30,3274411,3339226#msg-3339226

Re: Excel Workbook - existence Worksheet [30|3274411]
Vložil: Pecro
Datum: 6.4.2012 23:17:08

Dobrý den,
kdysi jsem to řešil tímto způsobem:

Private Function existuje_list(Nazev_listu As String) As Boolean
On Error Resume Next
existuje_list = Not Sheets(Nazev_listu) Is Nothing
End Function

Existuje-li vrátí funkce True, pokud neexistuje vráti False.
--
Autor: Pecro
Forum: ActiveX
Odkaz: http://forum.builder.cz/read.php?30,3274411,3343410#msg-3343410

thomas sabo rea mbt outlet thomas sabo charms sale louis vuitton taschen kaufen thomas sabo boutique mbt kaufen