vbsからエクセルを起動してみる。

vbsからエクセルを起動してみるための書き方。
使う機会は少ないかもしれませんが、
例えば、内部的に壊れているエクセルファイルを発見したい場合では、
ちょっとラクできるかもしれません。

Option Explicit

Dim fs
Dim excel
Dim f

WScript.Echo Time & " Start"

Set fs = CreateObject("Scripting.FileSystemObject")

WScript.Echo Time

Set excel = CreateObject("Excel.Application")

Set f = fs.GetFile("D:\xxx.xls")
excel.WorkBooks.Open f.Path

excel.DisplayAlerts = False

excel.Workbooks.Close

excel.Quit

WScript.Echo Time & " End"


Set excel = Nothing
Set f = Nothing