vba大神可以将excel设置成 每当我关闭表格时,将会自动打印成pdf文件,保存路径和保存文件名是名字+时间

就是保存的文件名是名字+保存时的日期... 就是保存的文件名是 名字+保存时的日期 展开
 我来答
hongbawudi
2013-03-25 · TA获得超过4258个赞
知道大有可为答主
回答量:3403
采纳率:46%
帮助的人:2012万
展开全部
打开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 , dt as string
dt = Date & Time()
dt = Replace(dt, "/", "")
SavePath = "D:\目录随便选\名字随便取" & Replace(dt, ":", "") & ".pdf"
ThisWorkbook.ExportPdf SavePath
End Sub
‘代码结束
xhhlovewjy
2013-03-25
知道答主
回答量:5
采纳率:0%
帮助的人:4.7万
展开全部
哥哥哥哥哥哥哥哥哥哥哥哥哥哥哥哥哥哥打出租车自费
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式