Excel Печать в PDF в папку

Question

Схожу с ума по этому. Не уверен, почему этот код не работает. Мой PDF-файл сохраняется, но сохраняется в папку «Мои документы» вместо указанного файла. В этот файл нужно go сохранить документацию, а у меня есть другой код для отправки электронного письма и прикрепления этого файла из этого каталога.

Sub PrintPOPDFtoFolder()

   ChDir "R:\Procurement\Purchase Orders" & "\" 'files directory
   fileSaveName = ActiveSheet.Range("Q7") 'Name the PDF file

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       fileSaveName _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False


    MsgBox "File Saved " & " " & fileSaveName

End Sub

Answer 1

Вместо того, чтобы полагаться на ChDir, используйте полный путь к файлу в вызове ExportAsFixedFormat:

fileSaveName = "R:\Procurement\Purchase Orders\" & ActiveSheet.Range("Q7").Value