vba大神可以将excel设置成 每当我关闭表格时,将会自动打印成pdf文件,保存路径和保存文件名是名字+时间
2个回答
展开全部
打开vba,双击左侧thisworkbook,在弹出的窗口中输入以下内容:
'代码开始
Private Sub workbook_BeforeClose(Cancel As Boolean)
Dim SavePath As String
SavePath = "name" & Date & Time() & ".pdf"
SavePath = Replace(SavePath, "/", "")
SavePath = Replace(SavePath, ":", "")
ThisWorkbook.ExportPdf SavePath
End Sub
‘代码结束
以上代码在wps2012中测试通过,目前支持导出为pdf的office软件包括:wps2012、mso2010、mso2013。低于这些版本,可能会失败。
至于时间和日期的格式,可以自由修改SavePath变量
'代码开始
Private Sub workbook_BeforeClose(Cancel As Boolean)
Dim SavePath As String
SavePath = "name" & Date & Time() & ".pdf"
SavePath = Replace(SavePath, "/", "")
SavePath = Replace(SavePath, ":", "")
ThisWorkbook.ExportPdf SavePath
End Sub
‘代码结束
以上代码在wps2012中测试通过,目前支持导出为pdf的office软件包括:wps2012、mso2010、mso2013。低于这些版本,可能会失败。
至于时间和日期的格式,可以自由修改SavePath变量
追问
大神 这个没有设置保存路径啊
追答
改改就行了嘛。
'代码开始
Private Sub workbook_BeforeClose(Cancel As Boolean)
Dim SavePath As String , dt as string
dt = Date & Time()
dt = Replace(dt, "/", "")
SavePath = "D:\目录随便选\名字随便取" & Replace(dt, ":", "") & ".pdf"
ThisWorkbook.ExportPdf SavePath
End Sub
‘代码结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |