Como cerrar hoja de excel
Hola amigo elsaatilde, ¿espero me puedas ayudar con un el siguiente problema?
estoy abriendo desde una aplicacion de excel otra aplicacio de excel con las siguientes instrucciones
strRutaArchivo=Aplication.GetOpenFilename("Libro de MicrosoftExcel(*.xls),*.xls"
y luego
On Error go to 9
WorkBooks.open Filename:=strRutaArchivo
Y si lo abre correctamente pero al terminar de copiar las celdas que requiero tengo que cerrar esa aplicación y puse las siguientes instrucciones
WorkBooks.Close Filename:=strRutaArchivo
pero me marco error
mi pregunta es como cierro la segunda aplicacion de excel????????? De antemano muchas gracias......
estoy abriendo desde una aplicacion de excel otra aplicacio de excel con las siguientes instrucciones
strRutaArchivo=Aplication.GetOpenFilename("Libro de MicrosoftExcel(*.xls),*.xls"
y luego
On Error go to 9
WorkBooks.open Filename:=strRutaArchivo
Y si lo abre correctamente pero al terminar de copiar las celdas que requiero tengo que cerrar esa aplicación y puse las siguientes instrucciones
WorkBooks.Close Filename:=strRutaArchivo
pero me marco error
mi pregunta es como cierro la segunda aplicacion de excel????????? De antemano muchas gracias......
1 respuesta
Respuesta de Elsa Matilde
1
El 2do libro que abres es el nro 2 (y pasa a ser el libro activo)
Entonces podes utilizar esta instrucción:
Workbooks(2). Close
Por supuesto que si tenés más libros abiertos calculá qué nro será este,
Otra manera es que al abrirlo guardes su nombre en una variable.
Workbooks.Open Filename:=strRutaArchivo
strRutaArchivo = ActiveWorkbook.Name
Workbooks(strRutaArchivo). Close
Saludos
Elsa
PD) Casi con seguridad contesto o descarto en el día. Por lo tanto no es necesario que requieras de 2 o más expertos para la misma consulta. Envía a 1 experto una consulta y a otros otras, así no repetimos el trabajo, ¿no te parece?
Entonces podes utilizar esta instrucción:
Workbooks(2). Close
Por supuesto que si tenés más libros abiertos calculá qué nro será este,
Otra manera es que al abrirlo guardes su nombre en una variable.
Workbooks.Open Filename:=strRutaArchivo
strRutaArchivo = ActiveWorkbook.Name
Workbooks(strRutaArchivo). Close
Saludos
Elsa
PD) Casi con seguridad contesto o descarto en el día. Por lo tanto no es necesario que requieras de 2 o más expertos para la misma consulta. Envía a 1 experto una consulta y a otros otras, así no repetimos el trabajo, ¿no te parece?
