Excel宏另存为PDF

Question

我有一个宏，它应用了一些过滤器，然后将某些列导出为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

Answer 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