読者です 読者をやめる 読者になる 読者になる

Fioの素敵な日々

日々の出来事や何やらをつれづれに

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

ドラッグ&ドロップで受け取った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 & "個のファイルを変換しました"
広告を非表示にする