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
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 Sub

Cambia 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
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas