複数のExcelファイルをPDFに一括変換する必要があったので、簡単なスクリプトを書いてみました。 Option Explicit Dim fp Dim fso Dim args Dim i Const msoFalse = 0 Const msoTrue = -1 Const xlTypePDF = 0 Const xlQualityStandard = 0 Const wdExportFormatPDF = 17 Const wdExportOptimizeForPrint = 0 Const wdExportAllDocument = 0 Const wdExportDocumentContent = 0 Const wdExportCreateWordBookmarks = 2 Const wdDoNotSaveChanges = 0 Const ppSaveAsPDF = 32

