VBScriptでAccessのデータを操作する

VBScriptでAccessのデータを操作することができる。

前提として[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

VBScriptでExcelを操作する

VBScriptでExcelを操作することができる。

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でコマンドライン引数を扱う

VBScriptでは、[WScript.Arguments]を利用することでコマンドラインの情報を取得できる。

引数の数を取得

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)

REONTOSANTA

Collection of personal knowledge

カテゴリー: VBScript

VBScriptでAccessのデータを操作する

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

レコードセットの取得

データの検索

データの更新

データの追加

VBScriptでExcelを操作する

Excelの起動と終了

新しいブックを開く

既存のブックを開く

セルに値を設定

セルの値を取得

セルの値の検索

VBScriptでコマンドライン引数を扱う

引数の数を取得

引数の値を取得

全ての引数の値を取得

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

レコードセットの取得

データの検索

データの更新

データの追加

Share:

Excelの起動と終了

新しいブックを開く

既存のブックを開く

セルに値を設定

セルの値を取得

セルの値の検索

Share:

引数の数を取得

引数の値を取得

全ての引数の値を取得

Share: