¿Que instrucciones sigo si quiero grabar una sola hoja de un libro del programa Microsoft Excel?
Hola, me gustaría que me dijeras si puedo grabar solo una hoja de un libro de excel, ejm: si tengo un libro de excel con 3 hojas(1,2,3), y quisiera grabar solo la hoja 2, ¿se puede? Y si se puede por favor enviame el código. Gracia.bye
1 Respuesta
Respuesta de valedor
1
Si, es sencillo...
Public Sub GuardarHoja()
Dim strRuta As String
'Esto te lo guarda con la fecha de hoy, pero puedes usar cualquier nombre, por ejemplo...
' strRuta = "C:\Datos\Prueba.xls"
strRuta = "D:\Temporal\" & Format(Date, "ddd dd mmm yyyy") & ".xls"
'Seleccionamos la hoja que queremos copiar, por supuesto esta DEBE de existir, sino te dara un error
Sheets("Informe").Select
'La copiamos y queda en un nuevo libro el cual queda activo
Sheets("Informe").Copy
'Guardamos el libro nuevo que es el activo
ActiveWorkbook.SaveAs Filename:=strRuta, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'Lo cerramos, aunque esto no es obligatorio
ActiveWorkbook.Close
End Sub
Saludos, si esto responde a tu pregunta te agradeceré mucho si la finalizas.
Public Sub GuardarHoja()
Dim strRuta As String
'Esto te lo guarda con la fecha de hoy, pero puedes usar cualquier nombre, por ejemplo...
' strRuta = "C:\Datos\Prueba.xls"
strRuta = "D:\Temporal\" & Format(Date, "ddd dd mmm yyyy") & ".xls"
'Seleccionamos la hoja que queremos copiar, por supuesto esta DEBE de existir, sino te dara un error
Sheets("Informe").Select
'La copiamos y queda en un nuevo libro el cual queda activo
Sheets("Informe").Copy
'Guardamos el libro nuevo que es el activo
ActiveWorkbook.SaveAs Filename:=strRuta, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'Lo cerramos, aunque esto no es obligatorio
ActiveWorkbook.Close
End Sub
Saludos, si esto responde a tu pregunta te agradeceré mucho si la finalizas.
