' EXCELのヴァージョン情報を返す。
   Dim EXApp
   Set EXApp = CreateObject("Excel.Application")
   Msgbox ("Excel:Version = " & EXApp.Version)