Excel VBA 一键保存pdf档并加日期?

您可以使用以下VBA代码一键将当前工作表保存为PDF，并自动添加日期到文件名，保存位置与Excel文件相同：

Sub 保存PDF加日期()    Dim pdf路径 As String    Dim 文件名 As String    ' 获取当前工作簿路径和名称（不含扩展名）    pdf路径 = ThisWorkbook.Path    文件名 = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)    ' 构建PDF文件名：原文件名_年月日.pdf    pdf路径 = pdf路径 & "\" & 文件名 & "_" & Format(Date, "yyyymmdd") & ".pdf"    ' 保存当前工作表为PDF    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf路径    MsgBox "PDF已保存到：" & vbCrLf & pdf路径End Sub

使用方法：

1. 按 Alt + F11打开VBA编辑器

2. 在左侧项目窗口中，右键点击您的工作簿 → 插入 → 模块

3. 将上面的代码粘贴到模块中

4. 关闭VBA编辑器，按 Alt + F8运行宏"保存PDF加日期"

代码说明：

• ThisWorkbook.Path获取Excel文件所在文件夹路径

• Format(Date, "yyyymmdd")生成当前日期格式（如20260226）

• ActiveSheet.ExportAsFixedFormat将当前活动工作表导出为PDF

如需保存整个工作簿为PDF，将 ActiveSheet.改为 ThisWorkbook.即可。

这是最简单的实现方式，无需任何额外设置即可使用。