VBScript基礎4：配列

by chasou_tech · 公開済み 2022年5月26日 · 更新済み 2023年2月10日

他の言語でプログラムを書く際にも使う配列は、VBScriptでももちろん使えます。
その使い方についてここでは説明していきます。

■配列の書き方

以下は「VBScript：Excel集約ツール」の記事からの抜粋し、少し修正しています。全体の動作についてはツールの記事をご覧ください。
ここでは、配列を宣言し、値を代入しています。

'================================'
'Excelテンプレートのシート名の設定'
'================================'
Sub getSheetName()
	Dim SheetNameArray(4)
	SheetNameArray (0) = "Sheet1" 
	SheetNameArray (1) = "Sheet2" 
	SheetNameArray (2) = "Sheet3" 
	SheetNameArray (3) = "Sheet4"
	SheetNameArray (4) = "Sheet5"
End Sub

'================================'

'Excelテンプレートのシート名の設定'

'================================'

Sub getSheetName()

Dim SheetNameArray(4)

SheetNameArray (0) = "Sheet1"

SheetNameArray (1) = "Sheet2"

SheetNameArray (2) = "Sheet3"

SheetNameArray (3) = "Sheet4"

SheetNameArray (4) = "Sheet5"

End Sub

■配列データの参照

以下のように上記に追加して記述することで配列の情報を取得します。
「(0)」としているので、”Sheet1″が表示されます。

	MsgBox SheetNameArray (0)

1	MsgBox SheetNameArray (0)

◆For ～ Nextステートメント

以下のように記述することで配列の情報を順番に取得することができます。

Dim i 'カウンタ用変数'
For i = 0 To 4 Step 1 '0から4まで、1ずつ変化させる。Stepがない場合は1ずつ'
    MsgBox SheetNameArray (i)
Next

Dim i 'カウンタ用変数'

For i = 0 To 4 Step 1 '0から4まで、1ずつ変化させる。Stepがない場合は1ずつ'

MsgBox SheetNameArray (i)

■For Each ～ Nextステートメント

以下のように記述することで配列の情報を全て取得することができます。

Dim intTemp
For Each intTemp In intNumbers '全要素に対して繰り返す
    MsgBox intTemp
Next

Dim intTemp

For Each intTemp In intNumbers '全要素に対して繰り返す

MsgBox intTemp

VBScript基礎11：FileSystemObject

投稿: 2022年10月21日

【VBScript】FileSystemObjectについて