如何解决Excel宏导出PDF文件名问题
我有一个宏,可将A列和B列导出为PDF,并且它使用与Excel文件相同的名称来命名该文件,如果可能的话,我希望能够选择一个名称来命名PDF?
此外,它在包含excel文件的同一文件夹中创建PDF,我希望它允许用户选择在哪里保存文件?
任何帮助,不胜感激! :)
Sub FilterSaveCases()
On Error Resume Next
Columns("H:H").AutoFilter.ShowAllData
Columns("H:H").AutoFilter
ActiveSheet.Range("H:H").AutoFilter Field:=1,Criteria1:=">5"
Dim Nm As String
Dim Rng As Range
Set Rng = Range("A1:B202")
Nm = ActiveWorkbook.FullName
Nm = Left(Nm,InStrRev(Nm,".") - 1) & Format(Now," ddmmyyyy") & ".pdf"
Rng.ExportAsFixedFormat Type:=xlTypePDF,Filename:=Nm,Quality:=xlQualityStandard,_
IncludeDocProperties:=True,IgnorePrintAreas:=True,OpenAfterPublish:=True
ActiveSheet.ShowAllData
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。