VBA宏会导出PDF，但会放入“”文件名之后

编程问答 2022-08-12

问题描述

我有一个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 (将#修改为@）

exportexportpdfpdfpdfvba