【VBA】PDF作成ダイアログ付き

■PDF作成

 

*****************************************************************************

Sub PDF作成ダイアログ付き()
   
    Dim Fpath As String 'フォルダのパス
   
    With Application.FileDialog(msoFileDialogFolderPicker)
   
        If .Show = True Then
                     
            'ダイアログで選んだフォルダ内に「PDF」というフォルダを作成
            MkDir .SelectedItems(1) & "\" & "PDF"
           
            'フォルダのパス
            Fpath = .SelectedItems(1) & "\" & "PDF"
           
            'セルＡ１の値をファイル名にしてＰＤＦファイルを作成
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fpath & "\" & Cells(1, 1).Value & ".pdf"
           
            'シート名をファイル名にしてＰＤＦファイルを作成
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fpath & "\" & ActiveSheet.Name & ".pdf"

       
        Else
       
            MsgBox "キャンセルされました。"
  
        End If

    End With
    
End Sub

*****************************************************************************

 

 

※PDFフォルダ存在確認なし

PDFというフォルダが既にあるとエラーになる

 

■Dir関数については下記のサイト

https://www.sejuku.net/blog/34439