Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte aplikáciu Microsoft Excel . 
 2 
 Kliknite na " Nástroje " , " Makro " a potom kliknite na tlačidlo " Visual Basic " . Tým sa otvorí programovacie prostredie VBA . 
 3 
 Kliknite na " Vložiť " , " Module " . Teraz ste v programovacom module kóde 
 
Zadajte alebo skopírujte a vložte nasledujúci kód : . Spojené
 Funkčné WorksheetExists ( _ 
 
 FullPathToWorkbook As String , _ 
 
 WorksheetName As String _ 
 
 ) As Boolean 
 
 Dim objExcel ako objekt 
 
 Dim objWorksheet ako objekt 
 
 Set objExcel = CreateObject ( " Excel.Application " ) 
 
 objExcel.Workbooks.Open "c : \\ Book1.xls " 
 
 Pre každý objWorksheet V objExcel.ActiveWorkbook.Worksheets 
 
 Ak objWorksheet.Name = " Sheet3 " Tak 
 
 WorksheetExists = TRUE 
 
 MsgBox ( " list neexistuje " ) 
 
Exit na predaj
 End If 
 
 Ďalšie objWorksheet 
 
 objExcel.ActiveWorkbook.Close SaveChanges : = False 
 
 Nastaviť objExcel = Nothing 
 
 End Function