ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
BatchWsc(Windows Script Component) : CreateBook メソッド
日時: 2018/07/31 22:30
名前: lightbox



http://winofsql.jp/help/cpp/Wsc.htm#CreateBook

拡張子:
' ************************************************
' Excel ブック作成
' ************************************************
function CreateBook(BookPath)

	Dim strRet

	strRet = CreateMyObject( Excel, "Excel.Application" )
	if strRet <> "" then
		CreateBook = strRet
		Exit Function
	end if

	Excel.DisplayAlerts = False

	Dim Workbook

	Excel.Workbooks.Add
	nBooks = Excel.Workbooks.Count
	Set Workbook = Excel.Workbooks( nBooks )
	Workbook.Activate

	on error resume next
	Workbook.SaveAs( BookPath )
	if Err.Number <> 0 then
		CreateBook = "ERROR:" & Err.Description
	end if
	on error goto 0

	Excel.Quit

end function
メンテナンス


日時: 2018/07/31 22:30
名前: lightbox