Excelをこのvbsにドラッグ＆ドロップするとPDFに変換できます。

Excelをこのvbsにドラッグ＆ドロップするとPDFに変換できます。
下のソースを「(任意の名前).vbs」で保存します。

参照サイト：https://www.ka-net.org/blog/?p=10256

Const wdExportCreateWordBookmarks = 2
Const wdDoNotSaveChanges = 0
Const ppSaveAsPDF = 32
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set args = WScript.Arguments
 
If args.Count < 1 Then
  MsgBox "当スクリプトにファイルをドラッグ＆ドロップして処理を実行してください。", vbExclamation + vbSystemModal
  WScript.Quit
End If
 
For i = 0 To args.Count - 1
  fp = fso.GetParentFolderName(args(i)) & ChrW(92) & fso.GetBaseName(args(i)) & ".pdf"
  Select Case LCase(fso.GetExtensionName(args(i)))
    Case "doc", "docx", "dotm"
      With CreateObject("Word.Application")
        .Visible = True
        With .Documents.Open(args(i))
          .ExportAsFixedFormat fp, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument, , , _
                                   wdExportDocumentContent, False, False, wdExportCreateWordBookmarks, True, True, False
          .Close wdDoNotSaveChanges
        End With
        .Quit
      End With
    Case "xls", "xlsx", "xlsm"
      With CreateObject("Excel.Application")
        .Visible = True
        With .Workbooks.Open(args(i))
          .ExportAsFixedFormat xlTypePDF, fp, xlQualityStandard, False, False, , , False
          .Close False
        End With
        .Quit
      End With
    Case "ppt", "pptx", "pptm"
      With CreateObject("PowerPoint.Application")
        .Visible = True
        With .Presentations.Open(args(i))
          .SaveAs fp, ppSaveAsPDF, msoTrue 'ExportAsFixedFormatはエラーになったためSaveAs使用
          .Close
        End With
        .Quit
      End With
  End Select
Next
 
MsgBox "処理が終了しました。", vbInformation + vbSystemModal

Const wdExportCreateWordBookmarks = 2

Const wdDoNotSaveChanges = 0

Const ppSaveAsPDF = 32

Set fso = CreateObject("Scripting.FileSystemObject")

Set args = WScript.Arguments

If args.Count < 1 Then

MsgBox "当スクリプトにファイルをドラッグ＆ドロップして処理を実行してください。", vbExclamation + vbSystemModal

WScript.Quit

End If

For i = 0 To args.Count - 1

fp = fso.GetParentFolderName(args(i)) & ChrW(92) & fso.GetBaseName(args(i)) & ".pdf"

Select Case LCase(fso.GetExtensionName(args(i)))

Case "doc", "docx", "dotm"

With CreateObject("Word.Application")

.Visible = True

With .Documents.Open(args(i))

.ExportAsFixedFormat fp, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument, , , _

wdExportDocumentContent, False, False, wdExportCreateWordBookmarks, True, True, False

.Close wdDoNotSaveChanges

End With

.Quit

End With

Case "xls", "xlsx", "xlsm"

With CreateObject("Excel.Application")

.Visible = True

With .Workbooks.Open(args(i))

.ExportAsFixedFormat xlTypePDF, fp, xlQualityStandard, False, False, , , False

.Close False

End With

.Quit

End With

Case "ppt", "pptx", "pptm"

With CreateObject("PowerPoint.Application")

.Visible = True

With .Presentations.Open(args(i))

.SaveAs fp, ppSaveAsPDF, msoTrue 'ExportAsFixedFormatはエラーになったためSaveAs使用

.Close

End With

.Quit

End With

End Select

MsgBox "処理が終了しました。", vbInformation + vbSystemModal