Error 400

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

"KL" wrote

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

Perdon, creo que me he equivocado con la inclinacion de la barra :-)

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

Muchísimas gracias. Problema resuelto, repro ok :)

"KL" escribió en el mensaje
news:%23s$

"KL" wrote

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

Perdon, creo que me he equivocado con la inclinacion de la barra :-)

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