Grabar Hojas con macro
Hola.
Estoy intentando con una macro grabar dos hojas de un libro, he pordido con una pero con 2 ya no me sale me pordian ayudar estoy usando el siguiente código:
Sheets("Hoja1").Copy
Set wb = ActiveWorkbook
With wb
'guardamos la hoja en libro nuevo
.SaveAs "C:\MiFiles\Mifile\" file ".xls"
.Close
End With
'se libera el objeto
Set wb = Nothing
La pregunta es como hacer para grabar dos o más hojas en un libro aparte
Estoy intentando con una macro grabar dos hojas de un libro, he pordido con una pero con 2 ya no me sale me pordian ayudar estoy usando el siguiente código:
Sheets("Hoja1").Copy
Set wb = ActiveWorkbook
With wb
'guardamos la hoja en libro nuevo
.SaveAs "C:\MiFiles\Mifile\" file ".xls"
.Close
End With
'se libera el objeto
Set wb = Nothing
La pregunta es como hacer para grabar dos o más hojas en un libro aparte
1 Respuesta
Respuesta
1
Probá reemplazando tu primer instrucción por
Sheets(Array("Hoja1", "Hoja2", "Hoja3")). Copy
Sheets(Array("Hoja1", "Hoja2", "Hoja3")). Copy
Hola, Gracias por responder rapido
Funciono perfecto pero quería ver si me podrías resolver otra duda y es que cada vez que presiono el botón que me envía a guardar yo le estoy dando el nombre llamando la función inputbox.
En el caso en que ya presione guardar y me aparece el mensaje del imputbox pero en vez de aceptar cuando le doy el nombre pongo cancelar me apraece el siguiente error:
"se ha pruducido el error '1004' en tiempo de ejecución:
Error en el método saveas de la clase workbook"
Como podría corregir eso
Funciono perfecto pero quería ver si me podrías resolver otra duda y es que cada vez que presiono el botón que me envía a guardar yo le estoy dando el nombre llamando la función inputbox.
En el caso en que ya presione guardar y me aparece el mensaje del imputbox pero en vez de aceptar cuando le doy el nombre pongo cancelar me apraece el siguiente error:
"se ha pruducido el error '1004' en tiempo de ejecución:
Error en el método saveas de la clase workbook"
Como podría corregir eso
Porque cuando le das cancelar el resultado del inputbox te devuelve la cadena vacía "" y probablemente está tratando de grabar con ese nombre (que obviamente es inválido). Lo que deberías hacer es algo más o menos así
variableArchivo = InputBox(...)
if variableArchivo <> "" then
'Grabar
else
'salir?
Endif
Saludos (y no olvides finalizar)
Gfellay
variableArchivo = InputBox(...)
if variableArchivo <> "" then
'Grabar
else
'salir?
Endif
Saludos (y no olvides finalizar)
Gfellay