MACRO_PDF

[renee willian de andrade]

Bom dia.

Gostaria de obter um código para exportar em pdf, porém o nome do arquivo precisa ser de uma célula na própria planilha.

Alguém???

 

[Alyson Ronnan Martins]

Boa tarde @renee willian de andrade

O comando para exportar seria assim:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Desktop\Teste.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Agora para selecionar para colocar o seu "Nome personalizado" pode colocar para pegar o valor de um campo especifico:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Desktop\" & _
		Sheets("Plan1").Range("B2").value & _
		".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Olha se te ajuda.