Excel 宏另存为 PDF答案

【问题标题】：Excel Macro Saves as PDFExcel 宏另存为 PDF
【发布时间】：2020-12-15 00:32:19
【问题描述】：

我有一个宏，它应用一些过滤器，然后将某些列导出为 PDF 文件，目前宏将 PDF 保存在与 Excel 文件相同的文件夹中，但我想问我要将文件保存在哪里相反，这可能吗？

非常感谢任何帮助！ :)

Sub FilterSaveCases()
With ActiveSheet.PageSetup
.LeftHeader = "&B& &20 Doff Stock : " & Format(Now, " ddmmyyyy")
    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:=Nm, 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

【问题讨论】：

标签： excel vba pdf

【解决方案1】：

是的，这是可能的。将此添加到您的代码中。它会要求用户选择保存文件的位置。

Sub download_location()
    Dim user As String
    Dim fldr As FileDialog
    Dim sItem As String
    Dim getfolder As String
    user = Application.UserName
    
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    getfolder = sItem
    Set fldr = Nothing


'do something here

End Sub

【讨论】：