ExcelVBAでPDFエクスポート方法|【ファイル名が重複しない方法も解説】

Sub PDF()
     ' フォルダーパスを作成
     Dim folderPath As String
     folderPath = ThisWorkbook.Path & "\テスト\" & "\テスト2\"
     
     ' フォルダーが存在しない場合は作成
     If Dir(folderPath, vbDirectory) = "" Then
         MkDir folderPath
     End If
 
     ' ファイル名を作成
     Dim fileName As String
     fileName = "あいうえお" & Format(Now(), "mm_dd_hh_mm_ss") & ".pdf"
     
     ' PDFを作成するシートを選択
     Sheets("Sheet1").Select
     
 
     
     ' ファイルをPDFで保存
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
         fileName:=folderPath & fileName, Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
     
     ' 元のシートを選択
     Sheets("Sheet1").Select
 End Sub