2017-12-15 3 views
0

PDFにエクスポートするこのコードはありますが、ドキュメントフォルダに転送されます。私はそれを別の場所にエクスポートしたいと思います。それ、どうやったら出来るの?ExcelからPDFにエクスポートする方法

は、これはコードです:

Private Sub CommandButton1_Click() 

    Range("a1:k44").Select 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, _ 
     Filename:=ru & "REMITO " & Range("C7") & ".pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, OpenAfterPublish:=False 

End Sub 
+1

ファイル名にパスを含めますか? –

答えて

0

エクスポートが特定のパスにPDFとして優れ、あなたは以下のコードを使用することができます。あなたのニーズに合わせて調整する必要があります、これはベースです。

Private Sub CommandButton1_Click() 

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="path_here+filename.pdf" 

End sub 

例:

Filename:="C:\Documents\newfolder2\archive.pdf" 
関連する問題