Jump to content

MosC_AtheL

Members
  • Content Count

    2
  • Joined

  • Last visited

About MosC_AtheL

  • Rank
    Newbie

Converted

  • Campos
    ;
  1. Esta es la macro en la que me quiero basar: ' ' ' Sub GuardarHojasComoPDF() Dim Ruta As String Dim NombreArchivo As String Dim Hoja As Object With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Seleccionar carpeta" .Show If .SelectedItems.Count = 0 Then 'Nada Else Ruta = .SelectedItems(1) For Each Hoja In ThisWorkbook.Sheets NombreArchivo = Hoja.Name 'If NombreArchivo Like "*Hoja*" Then Hoja.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & "\" & NombreArchivo & ".pdf", OpenAfterPublish:=False 'Else 'Nada 'End If Next Hoja End If End With End Sub Por cortesía de ExceleInfo A esto me gustaría asignar los valores de las celdas de cada informe como variables para la creación del documento. y excluir la hoja de "Datos" de la exportación a PDF
  2. Hola a todos, Sé que la exportación a pdf es un tema concurrido pero no he conseguido resolverlo en excel. Problema: Necesito exportar varios documentos a pdf. Cada documento pdf consta de dos hojas del libro excel: 1 hoja llamada "informe_1" y 1 llamada "presupuesto_1" Además necesito que este archivo exportado a excel tenga como nombre el campo de 4 celdas del informe separados por guiones para que quede algo como: Agente - nºpresupuesto - CUPS - Titular En total tengo que exportar 10 archivos pdf. Cada archivo correspondería a su informe_n + presupuesto_n Agente - nºpresupuesto - CUPS - Titular Informe_1 Presupuesto_1 Agente - nºpresupuesto - CUPS - Titular Informe_2 Presupuesto_2 Agente - nºpresupuesto - CUPS - Titular Informe_3 Presupuesto_3 etc... Adjunto como plantilla un documento para visualizar mejor de lo que hablo. Agradezco cualquier ayuda. Libro1.xlsm
×
×
  • Create New...

Important Information

Privacy Policy