AION5.8 永恒之塔单机版网游商业版可以外网没有功能限制

xiaofaerie · 发表于 2024-4-8 15:24:05

Sub ExportWorksheetsToPDFWithDate()
Dim ws As Worksheet
Dim myPath As String
Dim myFileName As String
Dim twoDaysAfter As Date

' 设置PDF文件保存路径
myPath = "C:\PDFs\" ' 请确保路径以反斜杠结束
twoDaysAfter = Date + 2 ' 当前日期后两天的日期

' 遍历所有工作表
For Each ws In ThisWorkbook.Worksheets
      ' 生成PDF文件名
      myFileName = ws.Name & " " & Format(twoDaysAfter, "yyyy-mm-dd") & ".pdf"

      ' 使用工作表名和日期作为文件名导出为PDF
      ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myPath & myFileName, Quality:=xlQualityStandard
Next ws
End Sub