| Pregunta: | 12897 - DETECTAR ERROR ARCHIVO EXISTENTE AL GUARDAR UN ARCHIVO EXCEL |
| Autor: | Francisco González |
| Estoy haciendo una aplicación en VB6 para exportar los datos de un recordset a una hoja Excel.
Mi problema me surge al guardar la hoja excel con el comando hoja.SaveAs ("Nombre Fichero.xls"). Si el archivo existe sale el aviso de excel para sobrescribir. Si le digo "SI" no hay problema, pero al indicar "NO" o "Cancelar" me produce error y me echa del programa y no se como detectar el erro para que continue el programa si elijo tales opciones. Gracias por vuestra colaboración. | |
| Respuesta: | Luis Fernando Melo |
| Hola
Te mostraré un ejemplo sencillo de como capturar el error para que tu aplicación no aborte por un runtime: sub CalcularNOmina() On Error goto err_Calcular 'Usa una etiqueta para especificar a donde ' va el programa cuando se genere el error ...... aqui va todo el codigo que te pueda generar un error. ...... Exit_Calcular: exit sub Err_Calcular: 'Muestra el mensaje de error msgbox err.description & " Error numero " & err.numero, vbokonly+vbcritical resume Exit_Calcular ' Finaliza el procedimiento End sub | |