Error 400

29/07/2007 - 17:21 por Luis | Informe spam
Saludos al grupo

Estoy intentando abrir un archivo y me da siempre el mismo error. Un cuadro
de diálogo con el error 400

Probé de las tres maneras:

Sub AbrirLibro()
Workbooks.Open "FC.xls"
'Workbooks.Open ("FC.xls")
'Workbooks.Open Filename:="FC.xls"
End Sub

El archivo FC.xls está en la misma carpeta de el archivo donde ejecuto la
macro
 

Leer las respuestas

#1 KL
29/07/2007 - 18:31 | Informe spam
Hola Luis,

"Luis" wrote

Probé de las tres maneras:

Sub AbrirLibro()
Workbooks.Open "FC.xls"
'Workbooks.Open ("FC.xls")
'Workbooks.Open Filename:="FC.xls"
End Sub

El archivo FC.xls está en la misma carpeta de el archivo donde ejecuto la
macro



El no indicar la ruta se interpreta por VBA como el directorio activo (el
que ves al abrir el menu Archivo>Abrir...) y no el directorio donde esta el
archivo activo. Mejor prueba asi:

Sub AbrirLibro()
Dim strRuta As String
strRuta=ThisWorkbook.Path & "/"
Workbooks.Open strRuta & "FC.xls"
'Workbooks.Open (strRuta & "FC.xls")
'Workbooks.Open Filename:=strRuta & "FC.xls"
End Sub

Saludos,
KL

Preguntas similares