備忘録　（私の道具箱）

ＶＢスクリプト

VBSから他のプログラムを起動する，VBSからExcelを起動する

（１）VBS ⇒ 他のプログラムを起動する

	VBScriptで、ウィンドウズアプリケーションを起動するサンプルです。

	Option Explicit
	Dim objShell
	Set objShell = CreateObject("WScript.Shell")
	objShell.Run "%windir%\system32\calc.exe", 2, False
	WScript.Echo "Windowsの電卓を実行しました！"
	Set objShell = Nothing


（２）VBS ⇒ Excelを起動する

	VBScriptで、Excelを起動し，値を編集し，名前を付けて保存し，Excelを閉じるサンプルです。

	Set xlApp = CreateObject("Excel.Application")
	If xlApp Is Nothing Then
		MsgBox "Excel起動失敗"
	Else
		xlApp.Application.Visible = true	' Excel表示（falseにすると非表示にできる）
		'Excelの警告を非表示にする
		xlApp.Application.DisplayAlerts = False
		'2秒待つ
		WScript.Sleep(2000)
		'ブック追加
		Set xlBook = xlApp.Application.Workbooks.Add()
		'シート選択
		Set xlSheet = xlApp.Worksheets(1)

		'A1のセルに値を設定
		xlSheet.Range("A1").value = "テストコメント記入"
		'行が5、列が2のセルに値を設定
		xlSheet.Cells(5, 2).value = 1000

		'1秒待つ
		WScript.Sleep(1000)
		
		'保存先をフルパス指定でブック保存
		'xlBook.SaveAs ("c:\Temp\test.xlsx")
		'スクリプトファイルのディレクトリパスにブック保存
		xlBook.SaveAs (Replace(WScript.ScriptFullName,Wscript.scriptname,"") & "test.xlsx")
		'Excel終了
		xlApp.Quit

		'Excelオブジェクトクリア
		Set xlSheet = Nothing
		Set xlBook = Nothing
		Set xlApp = Nothing
	End If

戻る