主页 / computer / 问题 / 1784701
Accepted
Alan-53
Asked: 2023-05-18 17:28:00 +0800 CST

Excel 工作表另存为 pdf

  • 772

我有一个 VBA 宏，可以将 excel 文件保存到与它所在的目录相同的目录中。这执行得很好并且符合预期。

我想要做的是将文件另存为 PDF。

我尝试了各种代码，但因为我不明白这些东西都失败了。这是将文件另存为 .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

正如我发现的那样，它并不像更改.xlsm为.PDF.

microsoft-excel

1 个回答

  1. Best Answer

    我想要做的是将文件保存为 PDF

    使用以下之一：

    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

    资料来源：如何使用 VBA 将 Excel 另存为 PDF（10 个示例）

    • 2

相关问题