Pasar de un Libro de Excel a Otro
Buenas, tengo un problema con un código que he creado, lo que requiero es que con un libro de excel principal (A), abra otro libro (B) y cierre el libro principal, quedando abierto el libro (B). El código que he utilizado es el siguiente:
Sub AbrePOS()
Application.DisplayAlerts = False
'Abre el libro de comisiones POS
Workbooks.Open Filename:=ThisWorkbook.Path & "\Informe Comisiones POS Acumulado.xlsm"
Windows("Informe Comisiones POS Acumulado").Activate
Windows("ACUMULADO COMISIONES").Activate
ActiveWorkbook.Sabe
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub
Pero cuando llega a la línea en Negrita me arroja un error en tiempo de ejecución 9, el cual dice que Subíndice fuera del intervalo.
Esa línea podes quitarla, porque al abrir un libro queda automáticamente como el libro activo.
De todos modos te aclaro cuál es el error: le falta la extensión.
Y te será más fácil de ubicar la instrucción si utilizas Workbooks en lugar de Windows.
Como última sugerencia, lo correcto es Save (quizás solo se trató de un problema del corrector)
Sdos y no dejes la consulta sin finalizar.
Te recuerdo que la consulta sigue abierta. Aclara o finaliza.
Sdos!
