2017-01-05 7 views
1

セルの範囲をpdfにエクスポートして、あらかじめ設定された名前でセットフォルダに保存しようとしています。私が使用しているコードは、pdfを作成し、どこに保存するかを尋ねます。助言がありますか?セルの範囲を選択、PDFとして事前設定の名前でセットフォルダに保存

Sub ExcelToPDF() 

    Range("A11:D57").Select 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:="C:\Documents\Plantwide\Document Managerment Control\File Name", Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True 

End Sub 

答えて

0

私のエラーが見つかりました。以下は正しいコードです:

Sub ExcelToPDF() 

    Dim myFilename As String 
    myFilename = "C:\Documents\Plantwide\Document Managerment Control\" & Range("B3") & " - " & Format(Range("B1"), "mm.dd.yyyy") & " - Final Report" 

    Range("A11:D57").Select 
    Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=myFilename, Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True 

End Sub 
関連する問題