ドラッグ&ドロップで受け取ったExcelファイルをPDFに変換

投稿者: | 2016-01-22

ドラッグ&ドロップで受け取ったExcelファイルをPDFに変換します。

PDFは同じフォルダにできるように設定しています。

このVBScriptは、.vbsの拡張子をつけて保存してください。

Set objArgs = WScript.Arguments
If objArgs.Count=0 Then
MsgBox "Excelファイルをドラッグしてください。" & vbCrLf & "PDFに変換します"
WScript.Quit
End If
Set FS = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
'objExcel.Visible = True
j = 0
For Each FileName In objArgs
FolderName = FS.GetParentFolderName(FileName)
Select Case LCase(FS.GetExtensionName(FileName))
Case "xls","xlsx"
Set objBook = objExcel.Workbooks.Open (FileName)
objBook.ExportAsFixedFormat 0,FS.BuildPath(FolderName, FS.GetBaseName(FileName) & ".pdf")
objBook.Close False
j = j + 1
End Select
Next
objExcel.Quit
Set FS = Nothing
Set objBook = nothing
Set objExcel = nothing
MsgBox j & "個のファイルを変換しました"