前提として[C:\Temp]にAccessデータベース[Test.accdb]を用意し、以下のテーブルを作成する。
テーブル名：テーブル1
フィールド名：カラム1（テキスト型）、カラム2（数値型）

データベースの接続と切断

Accessデータベースへの接続と切断は以下のコードで実現できる。

'データベース接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Temp\Test.accdb;"

'データベース開放
cn.Close
Set cn = Nothing

レコードセットの取得

以下のコードで対象テーブルのレコードセットを取得することができる。

'データベース接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Temp\Test.accdb;"
'レコードセット取得
Set rs = CreateObject("ADODB.Recordset")
const adOpenKeyset = 1
const adLockOptimistic = 3
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic
'データの表示
rs.MoveFirst
Do Until rs.EOF
	MsgBox "カラム1[" & rs.Fields(0) & "]" & vbCrLf & "カラム2[" & rs.Fields(1) & "]"
	rs.MoveNext
Loop
'レコードセット開放
rs.Close
Set rs = Nothing
'データベース開放
cn.Close
Set cn = Nothing

データの検索

以下のコードで対象テーブルのレコードセットからデータを検索することができる。

'データベース接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Temp\Test.accdb;"
'レコードセット取得
Set rs = CreateObject("ADODB.Recordset")
const adOpenKeyset = 1
const adLockOptimistic = 3
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic
'データの表示
rs.MoveFirst
Do Until rs.EOF
	'データ検索
	rs.Find "カラム2=200"
	If rs.EOF = False Then
		MsgBox "カラム1[" & rs.Fields(0) & "]" & vbCrLf & "カラム2[" & rs.Fields(1) & "]"
		rs.MoveNext
	End If
Loop
'レコードセット開放
rs.Close
Set rs = Nothing
'データベース開放
cn.Close
Set cn = Nothing

データの更新

以下のコードで対象テーブルのレコードセットのデータを更新することができる。

'データベース接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Temp\Test.accdb;"
'レコードセット取得
Set rs = CreateObject("ADODB.Recordset")
const adOpenKeyset = 1
const adLockOptimistic = 3
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic
'データの表示
rs.MoveFirst
Do Until rs.EOF
	'データ検索
	rs.Find "カラム1='ccc'"
	If rs.EOF = False Then
		MsgBox "【更新前】" & vbCrLf & "カラム1[" & rs.Fields(0) & "]" & vbCrLf & "カラム2[" & rs.Fields(1) & "]"
		'データ更新
		rs.Fields(1) = 450
		rs.Update
		MsgBox "【更新後】" & vbCrLf & "カラム1[" & rs.Fields(0) & "]" & vbCrLf & "カラム2[" & rs.Fields(1) & "]"
		rs.MoveNext
	End If
Loop
'レコードセット開放
rs.Close
Set rs = Nothing
'データベース開放
cn.Close
Set cn = Nothing

データの追加

以下のコードで対象テーブルのレコードセットにデータを追加することができる。

'データベース接続
Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Temp\Test.accdb;"
'レコードセット取得
Set rs = CreateObject("ADODB.Recordset")
const adOpenKeyset = 1
const adLockOptimistic = 3
rs.Open "テーブル1", cn, adOpenKeyset, adLockOptimistic
'データの追加
rs.AddNew
'フィールドに値をセット
rs.Fields(0) = "eee"
rs.Fields(1) = 500
'データベース更新
rs.Update
'レコードセット開放
rs.Close
Set rs = Nothing
'データベース開放
cn.Close
Set cn = Nothing

Excelの起動と終了

Excelを起動して、終了するには以下のコードで実現できる。
サンプルを実行するとExcelが起動して、3秒後に終了する。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
	' Excel起動失敗
	MsgBox "Excel起動失敗"
Else
	' Excel起動成功
	' --Excel表示（falseにすると非表示にできる）
	oXlsApp.Application.Visible = true
	' --3秒待つ
	WScript.Sleep(3000)
	' --Excel終了
	oXlsApp.Quit
	' --Excelオブジェクトクリア
	Set oXlsApp = Nothing
End If

新しいブックを開く

起動したExcelで新しいブックを開くには、[Application.Workbooks.Add()]を利用する。
サンプルを実行するとExcelが起動して3秒後に新しいブックが開き、さらに3秒後にExcelが終了する。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
	' Excel起動失敗
	MsgBox "Excel起動失敗"
Else
	' Excel起動成功
	' --Excel表示（falseにすると非表示にできる）
	oXlsApp.Application.Visible = true
	' --3秒待つ
	WScript.Sleep(3000)
	' --ブックの追加
	oXlsApp.Application.Workbooks.Add()
	' --3秒待つ
	WScript.Sleep(3000)
	' --Excel終了
	oXlsApp.Quit
	' --Excelオブジェクトクリア
	Set oXlsApp = Nothing
End If

既存のブックを開く

起動したExcelで既存のブックを開くには、[Application.Workbooks.Open()]を利用する。
サンプルを実行するとExcelが起動して3秒後に既存のブック（Test.xlsx）が開き、さらに3秒後にExcelが終了する。
※実行前に[C:]ドライブの直下にファイル名[Test.xlsx]のExcelファイルを用意する。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
	' Excel起動失敗
	MsgBox "Excel起動失敗"
Else
	' Excel起動成功
	' --Excel表示（falseにすると非表示にできる）
	oXlsApp.Application.Visible = true
	' --3秒待つ
	WScript.Sleep(3000)
	' --ブックを開く
	oXlsApp.Application.Workbooks.Open("C:/Test.xlsx")
	' --3秒待つ
	WScript.Sleep(3000)
	' --Excel終了
	oXlsApp.Quit
	' --Excelオブジェクトクリア
	Set oXlsApp = Nothing
End If

セルに値を設定

セルに値を設定する方法は、Range指定とCells指定の2通りが存在する。
サンプルを実行するとExcelが起動して3秒後に新しいブックが開き、A1セルに”aaa”、C2セルに”100″が入力され、さらに3秒後にExcelが終了する。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
	' Excel起動失敗
	MsgBox "Excel起動失敗"
Else
	' Excel起動成功
	' --Excel表示（falseにすると非表示にできる）
	oXlsApp.Application.Visible = true
	' --Excelの警告を非表示にする
	oXlsApp.Application.DisplayAlerts = False
	' --3秒待つ
	WScript.Sleep(3000)
	' --ブック追加
	oXlsApp.Application.Workbooks.Add()
	' --シート選択
	Set oSheet = oXlsApp.Worksheets(1)
	' --A1のセルに値を設定
	oSheet.Range("A1").value = "aaa"
	' --行が2、列が3のセルに値を設定
	oSheet.Cells(2, 3).value = 100
	' --3秒待つ
	WScript.Sleep(3000)
	' --Excel終了
	oXlsApp.Quit
	' --Excelオブジェクトクリア
	Set oXlsApp = Nothing
End If

セルの値を取得

セルの値を取得する方法は、Range指定とCells指定の2通りが存在する。
サンプルを実行するとExcelが起動して3秒後に新しいブックが開き、A1セル、C2セルの値がメッセージボックスに表示され、さらに3秒後にExcelが終了する。
※実行前に[C:]ドライブの直下にファイル名[Test.xlsx]のExcelファイルを用意して、A1セル、C2セルに値を設定しておく。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
	' Excel起動失敗
	MsgBox "Excel起動失敗"
Else
	' Excel起動成功
	' --Excel表示（falseにすると非表示にできる）
	oXlsApp.Application.Visible = true
	' --Excelの警告を非表示にする
	oXlsApp.Application.DisplayAlerts = False
	' --3秒待つ
	WScript.Sleep(3000)
	' --ブックを開く
	oXlsApp.Application.Workbooks.Open("C:/Test.xlsx")
	' --シート選択
	Set oSheet = oXlsApp.Worksheets(1)
	' --A1のセルに値を設定
	MsgBox "A1セル：" & oSheet.Range("A1").value
	' --行が2、列が3のセルに値を設定
	MsgBox "C2セル：" & oSheet.Cells(2, 3).value
	' --3秒待つ
	WScript.Sleep(3000)
	' --Excel終了
	oXlsApp.Quit
	' --Excelオブジェクトクリア
	Set oXlsApp = Nothing
End If

セルの値の検索

[Worksheets.Cells.Find()]を利用することで、値の検索が可能となる。
サンプルを実行するとExcelが起動して3秒後に新しいブックが開き、値(“100”)が入力されているセルの行列がメッセージボックスに表示され、さらに3秒後にExcelが終了する。
※実行前に[C:]ドライブの直下にファイル名[Test.xlsx]のExcelファイルを用意して、C2セルに値(“100”)を設定しておく。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
	' Excel起動失敗
	MsgBox "Excel起動失敗"
Else
	' Excel起動成功
	' --Excel表示（falseにすると非表示にできる）
	oXlsApp.Application.Visible = true
	' --Excelの警告を非表示にする
	oXlsApp.Application.DisplayAlerts = False
	' --3秒待つ
	WScript.Sleep(3000)
	' --ブックを開く
	oXlsApp.Application.Workbooks.Open("C:/Test.xlsx")
	' --シート選択
	Set oSheet = oXlsApp.Worksheets(1)
	' セル選択
	Set oRange = oSheet.Cells.Find("100")
	If oRange Is Nothing Then
		MsgBox "検索対象が存在しません。"
	Else
		' セルの位置を表示
		MsgBox "行:" & oRange.Row & vbCrlf & "列：" & oRange.Column
	End If
	' --3秒待つ
	WScript.Sleep(3000)
	' --Excel終了
	oXlsApp.Quit
	' --Excelオブジェクトクリア
	Set oXlsApp = Nothing
End If

引数の数を取得

VBScriptのコマンドライン引数の数を取得するには、[WScript.Arguments.Count]を利用する。
※[WScript.Quit()]でVBScriptで処理終了
引数を必須とする場合、以下のコードで実現できる。

If WScript.Arguments.Count = 0 Then
	MsgBox "引数を指定してください"
	WScript.Quit(-1)
End If

引数を1つに指定する場合、以下のコードで実現できる。

If WScript.Arguments.Count <> 1 Then
	MsgBox "引数を1つだけ指定してください"
	WScript.Quit(-1)
End If

引数の値を取得

[WScript.Arguments]は配列構造となっている為、添字を指定することで、任意の引数を取得することができる。

'引数の数をチェック
If WScript.Arguments.Count > 2 Then
	MsgBox "引数を2つ以上指定してください"
	WScript.Quit(-1)
End If
'引数の値を表示
MsgBox "引数1：" & WScript.Arguments(0)
MsgBox "引数2：" & WScript.Arguments(1)

全ての引数の値を取得

ループを利用して、指定された全ての引数を取得することができる。

'引数の数をチェック
If WScript.Arguments.Count = 0 Then
	MsgBox "引数を指定してください"
	WScript.Quit(-1)
End If
'引数の値を表示
For cnt = 0 To WScript.Arguments.Count - 1
	MsgBox "引数" & cnt + 1 & "：" & WScript.Arguments(cnt)
Next