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