PDF로 내보내기 및 저장할 폴더 경로 및 파일 이름을 묻는 메시지

Question

사용자에게 폴더 경로 및 저장 이름을 묻는 방법을 알 수 없습니다. 아래 코드는 제가 작업 한 코드입니다.

Sub PrintToPDF 

ThisWorkbook.Sheets("Sheet 1","Sheet 3").Select 

ActiveSheet.ExportAsFixedFormat _ 
Type:=xlTypePdf, _ 
Filename:="test.pdf", 
Quality:=xlQualityStandard, _ 
IncludeDocumentProperties:=True, _ 
IgnorePrintAreas:=False, _ 
OpenAfterPublish:=True 

Sheets("Sheet 1").Select 

End Sub 

감사합니다.

Answer 1

아래 코드는 사용자가 PDF 파일을 저장할 위치와 파일 이름을 선택하라는 메시지를 표시합니다.

Dim file_name As Variant 
file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF File_ (*.pdf), *.pdf") 

If file_name <> False Then 
    ActiveWorkbook.SaveAs Filename:=file_name 
    MsgBox "File Saved!" 
End If