ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: .xlsx と .xls で Excel のブックを作成
名前: lightbox
処理選択
パスワード

件名 .xlsx と .xls で Excel のブックを作成
名前 lightbox
コメント
@DIV
Call NewBook("C:\Users\lightbox\Documents\test.xlsx", "")
Call NewBook("C:\Users\lightbox\Documents\test.xls", "OLD")

' **********************************************************
' 新しい Excel の Book を作成する
' **********************************************************
Function NewBook( BookPath, strType )

	Dim ExcelApp	' アプリケーション
	Dim ExcelBook	' ブック

	Set ExcelApp = Wscript.CreateObject("Excel.Application")

	' 警告を出さないようにする
	ExcelApp.DisplayAlerts = False

	' ブック追加
	ExcelApp.Workbooks.Add

	' 追加したブックを取得
	Set ExcelBook = ExcelApp.Workbooks( ExcelApp.Workbooks.Count )

	on error resume next
	' 保存
	' 56 は、拡張子 .xls で保存する場合に必要
	if strType = "OLD" then
		Call ExcelBook.SaveAs( BookPath, 56 )
	else
		Call ExcelBook.SaveAs( BookPath )
	end if
	if Err.Number <> 0 then
		MsgBox( "ERROR:" & Err.Description )
		ExcelApp.Quit
		Set ExcelApp = Nothing
	end if
	on error goto 0

	' Excel をアプリケーションとして終了
	ExcelApp.Quit
	' Excel を VBScript から開放
	Set ExcelApp = Nothing

End Function
@END