Macros en Red
Tengo un libro en excel lo configure con Macros esta configurado para que se abra en un principio un libro que se utiliza como Menu y abre otros libros el problema es que al tratar de abrirlos en red a través del menu con la Macro me marca error de que la ruta no existe
Las ruta correctas son
pc1 c:\menu\xxxx.xls
pc2 \\pc1\menu\xxxx.xls
Como decirle que busque en una y si no la encuentra la busque en la otra...
Las ruta correctas son
pc1 c:\menu\xxxx.xls
pc2 \\pc1\menu\xxxx.xls
Como decirle que busque en una y si no la encuentra la busque en la otra...
1 respuesta
Respuesta de valedor
1
Para saber si un archivo existe puedes usar la función Dir de la siguiente forma
strRuta = "c:\menu\xxxx.xls"
If Dir(strRuta)="" Then
MsgBox "Archivo no existe"
'Aqui podrias probar la otra ruta
strRuta = "\\pc1\menu\xxxx.xls"
If Dir(strRuta)="" Then
'NO existe
Else
'Existe
End If
Else
MsgBox "Archivo existe"
End If
Dependiendo del numero de rutas que tengas, se podría usar otras alternativas, pero esto funciona.
strRuta = "c:\menu\xxxx.xls"
If Dir(strRuta)="" Then
MsgBox "Archivo no existe"
'Aqui podrias probar la otra ruta
strRuta = "\\pc1\menu\xxxx.xls"
If Dir(strRuta)="" Then
'NO existe
Else
'Existe
End If
Else
MsgBox "Archivo existe"
End If
Dependiendo del numero de rutas que tengas, se podría usar otras alternativas, pero esto funciona.
