Abrir varios libros

Hola Tux,

Por ejemplo yo he probado la macro de Hector en un archivo de la misma carpeta donde tengo los demas libros a abrir, he puesto la
ruta en mi caso
C:\Documents and Settings\usuario\Escritorio\Mi Carpeta\
y al ejecutarla me dice:
Error 1004
Metodo "open" del objeto Workbooks
Sin embargo si saco el archivo al escritorio por ejemplo y ejecuto la macro pues que sin ningun problema amos funciona de
categoria.

Pos entonces ya te habia entendido antes. No he sido capaz de reproducir el mismo numero del error, per que te salte un error es
logico ya que el codigo tambien intenta abrir el libro que contiene el codigo, el cual ya esta abierto, no? De ahi el codigo
modificado que te puese en mi mensaje anterior. Si quieres probar sacando la ruta desde una celda, prueba el siguiente procedimiento
modificado:

Sub Abrir_archivos_en()
Dim Archivo As String
Application.ScreenUpdating = False
With ThisWorkbook
Archivo = Dir(.Sheets(1).[A1] & "*.xls")
Do While Archivo <> ""
If Archivo <> .Name Then Workbooks.Open .Sheets(1).[A1] & Archivo
Archivo = Dir()
Loop
End With
End Sub

Saludos,
KL

KL escribió:

Hola Tux,

Por ejemplo yo he probado la macro de Hector en un archivo de la misma
carpeta donde tengo los demas libros a abrir, he puesto la ruta en mi
caso
C:\Documents and Settings\usuario\Escritorio\Mi Carpeta\
y al ejecutarla me dice:
Error 1004
Metodo "open" del objeto Workbooks
Sin embargo si saco el archivo al escritorio por ejemplo y ejecuto la
macro pues que sin ningun problema amos funciona de categoria.

Pos entonces ya te habia entendido antes. No he sido capaz de reproducir
el mismo numero del error, per que te salte un error es logico ya que el
codigo tambien intenta abrir el libro que contiene el codigo, el cual ya
esta abierto, no? De ahi el codigo modificado que te puese en mi mensaje
anterior. Si quieres probar sacando la ruta desde una celda, prueba el
siguiente procedimiento modificado:

Sub Abrir_archivos_en()
Dim Archivo As String
Application.ScreenUpdating = False
With ThisWorkbook
Archivo = Dir(.Sheets(1).[A1] & "*.xls")
Do While Archivo <> ""
If Archivo <> .Name Then Workbooks.Open .Sheets(1).[A1] & Archivo
Archivo = Dir()
Loop
End With
End Sub

Exactamente el libro ya esta abierto. Pues he probado el codigo y sin
ningun problema no me da ningun error es mas no sale la ventana de
diálogo "libro1.xls ya esta abierto. si lo vuelve a abrir etc..",
Entonces claro al decirle que nos devuelva el nombre del archivo luego
que nos abra la ruta de la celda A1 de la hoja1 no¿?

Pues ya he aprendido algo mas de codigo :-)

Ya he obsevado y probado el codigo que diste en el anterior, anterior
mensaje :-)

Muchas gracias :-)

¡Un SAludico!


¡Un SAludo!:-)

www.fermu.com
www.zorval.es