' ********************************************************** ' 新しい Excel の Book を作成する ' ********************************************************** Function NewBook( BookPath ) Dim ExcelApp ' アプリケーション Dim ExcelBook ' ブック Set ExcelApp = CreateObject("Excel.Application") ' 警告を出さないようにする ExcelApp.DisplayAlerts = False ' ブック追加 ExcelApp.Workbooks.Add ' 追加したブックを取得 Set ExcelBook = ExcelApp.Workbooks( ExcelApp.Workbooks.Count ) on error resume next ' 保存 ' 56 は、Excel 2007 で拡張子 .xls で保存する場合に必要 if CLng(Left(ExcelApp.Version & "",2 )) > 11 then Call ExcelBook.SaveAs( BookPath, 56 ) else Call ExcelBook.SaveAs( BookPath ) end if if Err.Number <> 0 then MsgBox( "ERROR:" & Err.Description ) end if on error goto 0 ' Excel をアプリケーションとして終了 ExcelApp.Quit ' Excel を VBScript から開放 Set ExcelApp = Nothing ' オブジェクト変数を通常変数として初期化 ' ( ExcelApp がローカル変数なので実際は必要ありません ) ExcelApp = Empty End Function