Nombrar el archivo y la hoja con datos específicos.
El nombre que debiera llevar el archivo es celda C2 + mes y año de generación (Ej: Administracion 201606.xls) y la subcarpeta en que deberá quedar la información (E2, la cual se encuentra en la carpeta D2).
Ojalá la hoja del archivo enviado quede con un nombre. Ej: mes del informe y también que quede con área de impresión seleccionada.
1 respuesta
Respuesta de Dante Amor
1
Para nombrar el archivo
ruta = ThisWorkbook.Path & "\" año = Year(h1.[I1]) mes = Format(Month(h1.[I1]), "00")
nombre = h2.Cells(b.Row, "C")
archivo = nombre & " " & año & mes
l2.SaveAs Filename:=rutades & archivo & ".xlsx" ', FileFormat:=xlOpenXMLWorkbook
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
