| Pregunta: | 44345 - CONTAR CUANTAS HOJAS HAY EN EXCEL POR COMANDOS DE VISUAL |
| Autor: | admon redes |
| Cordial Saludo, me podria decir la funcion o variable para contar cuantas hojas tengo en excel, y que esta me la lleve a una celda cualquiera | |
| Respuesta: | SuNcO |
| Se requiere un boton llamado Command1 solamente Dim objExcel As Object Dim objLibro As Object Private Sub Command1_Click() 'Captura de errores On Error Resume Next 'Hace una referencia a la aplicación Excel Set objExcel = GetObject(, "Excel.Application") 'Si nos da error significa que Excel NO esta en ejecucion If Err.Number = 429 Then Err.Clear 'Creamos una NUEVA instancia de Excel Set objExcel = CreateObject("Excel.Application") ' Abrir el Archivo Reporte.xls Ruta = App.Path & "\Reporte.xls" Set objLibro = objExcel.WorkBooks.Open(Ruta) End If ' Mostrar el Excel objExcel.Visible = True ' Mostramos el Numero de Libros en la Hoja MsgBox objExcel.Worksheets.Count End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Set objLibro = Nothing Set objExcel = Nothing End Sub | |