1
Abrir Excel.
2 Haga clic en " Herramientas" de Microsoft "Macro " y luego haga clic en " Visual Basic " . Esto abrirá el entorno de programación VBA.
3
clic en "Insertar ", "Módulo " . Ahora se encuentra en un módulo de código de programación
Escribe o copia y pega el siguiente código: .
WorksheetExists función ( _
FullPathToWorkbook As String , _
< p > WorksheetName As String _
) As Boolean
objExcel Dim As Object
objWorksheet Dim As Object
Set objExcel = CreateObject ( " Excel.Application " )
objExcel.Workbooks.Open " c: \\ Book1.xls "
For Each objWorksheet En objExcel.ActiveWorkbook.Worksheets
Si objWorksheet.Name = " Sheet3 " Entonces
WorksheetExists = True
MsgBox ( " Hoja de trabajo existe" )
Salir a la Venta
End If
Siguiente objWorksheet
< p> objExcel.ActiveWorkbook.Close SaveChanges : = False
objExcel Set = Nothing End Function