Condición If..then
Quiero hacer una función para abra un archivo. Le quiero hacer una condicional, para evitar el mensaje de error en caso de no encontrar el archivo. El código que he puesto es:
Miarchivo = Dir(Ruta_Resultados)
If Miarchivo = "RESULTADOS.XLS" Then
Workbooks.Open Ruta_Resultados
ActiveWorkbook.Save
Else
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "¿La Unidad de Disco o el ejercicio no coinciden?"
Estilo = vbOKOnly + vbInformation
Título = "ERROR"
Ayuda = "DEMO.HLP"
Ctxt = 1000
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
End If
Mi problema es que la condición se cumple, salvo por que no coinciden mayúsculas y minúsculas, es decir, el archivo es RESULTADOS.xls y sin embargo me salta a ELSE. Supongo que es porque diferencia entre mayúsculas y minúsculas. ¿Se puede poner algo, para que no diferencie entre mayúsculas y minúsculas?
Miarchivo = Dir(Ruta_Resultados)
If Miarchivo = "RESULTADOS.XLS" Then
Workbooks.Open Ruta_Resultados
ActiveWorkbook.Save
Else
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "¿La Unidad de Disco o el ejercicio no coinciden?"
Estilo = vbOKOnly + vbInformation
Título = "ERROR"
Ayuda = "DEMO.HLP"
Ctxt = 1000
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
End If
Mi problema es que la condición se cumple, salvo por que no coinciden mayúsculas y minúsculas, es decir, el archivo es RESULTADOS.xls y sin embargo me salta a ELSE. Supongo que es porque diferencia entre mayúsculas y minúsculas. ¿Se puede poner algo, para que no diferencie entre mayúsculas y minúsculas?
