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

xiaofaerie

感谢楼主分享

xiaofaerie

感谢楼主分享

sunzhuang

6666666666666666666666666666

nod5

感谢分享谢楼主分享，楼主辛苦

xiaofaerie

感谢楼主分享

xiaofaerie

感谢楼主分享

xiaofaerie

感谢楼主分享

xiaofaerie

感谢楼主分享

xiaofaerie

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

xiaofaerie

感谢楼主分享