Tabla de contenido
El siguiente código validará si un nombre de archivo es válido. Esto es útil si su código requiere un nombre de archivo ingresado por el usuario. Verificará que el nombre del archivo sea válido antes de continuar y posiblemente generar un error.
Validar nombre de archivo
Esta función prueba que la variable "FileName" es un nombre de archivo válido:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Función ValidateFileName (ByVal FileName como cadena) como booleanoApplication.ScreenUpdating = FalsoDim wb como libro de trabajoNo busque nada en el nombre del archivo.Si FileName = "" EntoncesValidateFileName = FalsoIr a ExitProcTerminara si'Crear archivo temporalEn caso de error, vaya a InvalidName:Establecer wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51En caso de error, reanudar siguiente'Cerrar archivo Temp de Excelwb.Cerrar Falso'Eliminar archivo temporal de ExcelMata a Environ ("temp") & "\" & FileName & ".xlsx"'Nombre de archivo validado - Función de salidaValidateFileName = VerdaderoIr a ExitProc'Si el archivo no se puede crearNombre inválido:En caso de error, reanudar siguiente'Cerrar archivo temporal de Excelwb.Cerrar Falso'Nombre de archivo no validado - Función de salidaValidateFileName = FalsoExitProc:Application.ScreenUpdating = FalsoFunción final |
Puedes llamar a la función así:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda? /")End Sub |
Este procedimiento de prueba dará como resultado VERDADERO o FALSO en la Ventana Inmediata.
