如何解决VBA宏会导出PDF,但会放入“”文件名之后
我有一个VBA宏,该宏可以过滤一些列,然后将excel文件导出为PDF,但是每次保存文件时键入文件名时,当我转到文件时都会出现“。”。我选择文件名后,有人知道是什么问题吗?
Sub FilterSaveCases()
With ActiveSheet.PageSetup
.LeftHeader = "&B& &20 Doff Stock : " & Format(Now," dd/mm/yyyy")
On Error Resume Next
Columns("H:H").AutoFilter.ShowAllData
Columns("H:H").AutoFilter
ActiveSheet.Range("H:H").AutoFilter Field:=1,Criteria1:=">1"
Columns("C:O").EntireColumn.Hidden = True
Columns("P:P").EntireColumn.Hidden = False
ActiveSheet.Pictures("Picture 1").Visible = False
Dim Nm As String
Dim Rng As Range
Set Rng = Range("A1:P198")
Nm = ActiveWorkbook.FullName
Nm = Left(Nm,InStrRev(Nm,".") - 1) & Format(Now," ddmmyyyy") & ".pdf"
Rng.ExportAsFixedFormat Type:=xlTypePDF,Filename:=Application.GetSaveAsFilename,Quality:=xlQualityStandard,_
IncludeDocProperties:=True,IgnorePrintAreas:=True,OpenAfterPublish:=True
ActiveSheet.ShowAllData
Columns("C:O").EntireColumn.Hidden = False
Columns("M:M").EntireColumn.Hidden = True
Columns("P:P").EntireColumn.Hidden = True
ActiveSheet.Pictures("Picture 1").Visible = True
End With
End Sub
非常感谢您的帮助!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。