Crear archivo nuevo de una hoja de excel
Necesito un código para que una hoja existente de un archivo de excel, la guarde como un archivo nuevo, cuyo nombre sera la fecha del día y un texto.
Cordial saludo.
2 Respuestas
Respuesta de Dante Amor
3
Te anexo la macro
Sub Crear_Archivo()
'Por Dante Amor
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Hoja1").Copy
fecha = Format(Date, "dd-mm-yyyy")
texto = "aqui pon tu texto"
ruta = ThisWorkbook.Path & "\"
'
ActiveWorkbook.SaveAs Filename:=ruta & fecha & " " & texto & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Hoja creada como archivo"
End SubCambia en la macro "Hoja1" por el nombre de la hoja que quieras copiar.
Cambia "qui pon tu texto" por el texto del nombre del archivo que desees
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Respuesta de Programar Excel
1
