Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Pregunta: | 61036 - VISUAL BASIC CERRANDO EXCEL |
| Autor: | Jorge Ferreira Rey |
| Hola tengo un problema y a ver si alguién me lo puede resolver. Estoy haciendo un programa para la empresa en visual basic, básicamente el programa tiene que comparar unos parametros que se actualizan cada 10 minutos y si son incorrectos da una señal de alarma y manda un sms. Mi problema reside en lo siguiente: Abro el fichero de excel con el vb, me busca el numero total de filas en el fichero para agilizar luego la busqueda, me detecta la alarma y me la presenta. Después de esto cierro la ventana de excel que sale con "objExcel = Nothing". El problema empieza la segunda vez que hace el mismo proceso, abre el archivo, busca el numero de filas que presenta el fichero por si se modifico y ahí me aparece el error. ERRO 1004 EN TIEMPO DE EJECUCION ERROR EN EL METODO 'CELLS' DEL OBJETO_GLOBAL. Añado el codigo de la funcion donde me da error la segunda vez que se ejecuta Private Sub contar_filas() total_filas = 1 Do While (Cells(total_filas, 1) <> "") total_filas = total_filas + 1 Loop total_filas = total_filas - 1 End Sub ------------------------------------------------------------------------ Esto es el codigo despues de abrir el archivo de excel CONTAR FILAS j = 1 Do While (j < total_filas) If alarmaencontrada = Cells(j, 1) Then fila_encontrada = j bandera = True Exit Do End If j = j + 1 Loop If (bandera = True) Then Text4.Text = Cells(fila_encontrada, 2) bandera = False MENSAJE_ALERTA objExcel.Quit Set objExcel = Nothing Kill ("C:Documents and SettingsPC-027Mis documentosArchivos de alarmas" + direccionalarma) Else MsgBox ("Alarma sin incluir la codificacion") End If Una aclaración debe de ser el objExcel.Quit porque si lo quito funciona lo que pasa es que tengo que cerrarlas de algun modo porque se pueden dar muchisimas alarmas y por lo tanto abría muchisimos archivos | |