Início / computer / Perguntas / 1784701
Accepted
Alan-53
Asked: 2023-05-18 17:28:00 +0800 CST

Planilha do Excel salvar como pdf

  • 772

Eu tenho uma macro VBA que salva um arquivo do Excel no mesmo diretório em que está. Isso funciona bem e conforme o esperado.

O que eu quero fazer é salvar o arquivo como um PDF.

Eu tentei vários pedaços de código, mas porque eu não entendo essas coisas falharam muito. Aqui está o código para salvar o arquivo como .xlsm

Sub save_file()
  Dim path As String
  Dim filename1 As String
  path = ThisWorkbook.path & "\"     'Same path as current project that the User opened.
  filename1 = Range("M1").Text
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveCopyAs filename:=path & filename1 & ".xlsm"
  Application.DisplayAlerts = True
End Sub

Como descobri, não é tão simples quanto mudar .xlsmpara .PDF.

microsoft-excel

1 respostas

  1. Best Answer

    O que eu quero fazer é salvar o arquivo como um PDF

    Use um dos seguintes:

    Sub SaveActiveSheetsAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"

'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

Sub SaveActiveWorkbookAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"

'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

End Sub

    Fonte: Como salvar Excel como PDF com VBA (10 exemplos)

    • 2

relate perguntas