比如说 我有个完成的页面。我要打印这个页面的pdf到 某个路径下 如 D:\。这个被保存的文件要自动命名,
并以保存时间为名称。感激不尽。 同过按钮控制。需要有个对话框 辅助提示,问“是否需要保存该页面”。
是就执行,不是动作就取消。谢谢
Sub Macro1()
'
If MsgBox("是否确定要保存为PDF", vbOKCancel) = vbOK Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & Format(Now(), "yyyymmdd-hhmmss") & ".pdf"
End If
End Sub追问
'
If MsgBox("是否确定要保存为PDF", vbOKCancel) = vbOK Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & Format(Now(), "yyyymmdd-hhmmss") & ".pdf"
End If
End Sub追问
不行啊,438错误-_-#
追答需要EXCEL2007或更高的版本
追问谢谢啊
温馨提示:答案为网友推荐,仅供参考
第1个回答 2013-10-20
这还不简单么?录个宏什么都出来了