excel宏excel转pdf

您好！要将Excel文件转换为PDF，可以使用Excel宏来实现。下面是一个示例的VBA代码，可以将当前活动的Excel工作簿保存为PDF文件：

Sub SaveAsPDF()
    Dim filePath As String
    
    ' 获取当前活动的工作簿的路径和文件名
    filePath = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    
    ' 设置保存文件的路径和文件名，将扩展名更改为.pdf
    filePath = Replace(filePath, ".xlsx", ".pdf")
    
    ' 导出为PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

您可以在Excel中按下`Alt + F11`打开VBA编辑器，然后将上述代码复制粘贴到一个新的模块中。运行宏后，Excel工作簿将以PDF格式保存在与该工作簿相同的目录中。

请注意，此代码只会保存当前活动的工作簿。如果您想要将其他工作簿转换为PDF，可以在代码中进行相应的更改。

希望对您有所帮助！如有任何问题，请随时提问。