Darle nombre a un archivo de salida según contenido de una celda y la fecha actual
En la anterior macro que me hiciste, para el nombre del archivo PDF de salida hay la siguiente instrucción para darle el nombre:
ruta = ThisWorkbook.Path & "\" h3.ExportAsFixedFormat xlTypePDF, _ ruta & "archivo.pdf", xlQualityStandard, True, False,,, False ' MsgBox "Pdf generado", vbInformation, "PDF"
Será posible que me puedas ayudar dándole el siguiente nombre al archivo PDF.
Al comienzo del nombre que tome el dato registrado en la celda "E6" luego ponga " - " y luego colocando la fecha actual en formato "[$-240A]d" de "mmmm" de "yyyy;@"
Ejemplo:
"63523567 - 13 de septiembre de 2015"
1 respuesta
Me tomo el Guión y me tomo la fecha pero el dato de E6 no lo tomó, ¿qué será?
¿
Abra otra manera?
Por cierto no se si eso tenga algo que ver. Lo que pasa es que E6 es un número.
¿De cuál hoja hay que tomar el dato E6?
¿Tienes una fórmula en E6?
¿Ya revisaste que tengas algo en la celda E6?
La hoja se llama "Registro" la celda es "E6" y es un dato numérico digitado es decir no es fórmula. Se me olvidaba Dante que pena y que se guarde en la misma ruta del archivo pero en una carpeta llamada "Formulas".
Cambia esto
arch = h3.[E6] & " - " & Format(Date, "dd" & """ de """ & "mmmm" & """ de """ & "yyyy")
Por esto
arch = h1.[E6] & " - " & Format(Date, "dd" & """ de """ & "mmmm" & """ de """ & "yyyy")
Actualizada:
ruta = ThisWorkbook.Path & "\Formulas\" arch = h1.[E6] & " - " & Format(Date, "dd" & """ de """ & "mmmm" & """ de """ & "yyyy") h3.ExportAsFixedFormat xlTypePDF, _ ruta & arch & ".pdf", xlQualityStandard, True, False,,, False
