VBScript 配列

Question

「インデックスの有効範囲にありません：'1'」
のエラーが出ています。
どこが違うのでしょうか。

Set objInFile = objFso.OpenTextFile(Path & "\" & OutFile1, 1, False)
    i = 0
    Dim sRet()
    ReDim sRet(count,j)

    Do Until objInFile.AtEndOfStream
      strInFileLine = Split(objInFile.ReadLine, ",")
      For j = 0 To 6
        sRet(i,j) = strInFileLine(j)
      NEXT
      i = i + 1 
    Loop

objInfile.Close

別でなんですが、CSVを読み込んで、Splitした内容を二次元配列に格納していきたいです。
格納した値ををMsgBoxなどで呼び出したりしたいのですが、
どのようにすればできますでしょうか。

これができないのはなぜでしょうか。

MsgBox　sRet(i,j)

■Dim count
CSV行数が可変なので、
ここに貼っていない部分で行数をカウントしてその行数でReDimしております。
↑正直必要なのかもわかっていないです。

■Dim j
CSVの列数でこちらは7行固定なのでForは6までにしてます。

Comments

[mather]

部分的にコピーせず全体を提示しましょう。
count, j などの値が何を意味しているのかわかりません。

[hj_zebra]

>matherさん
文章を修正しました。

[YAmaGNZ]

ReDim sRet(count,j)
この時ｊはいくつですか？

[hj_zebra]

>YAmaGNZさん
その時のjは0ですね。。。
コメントいただいて気づきました。

ReDimしないほうがいいですかね？

[mather]

繰り返しになりますが、変数の解説ではなく、コード全体を提示してください。

Answer 1

ReDim sRet(count,j)

この時、countは正しい値が入っている前提ですが、j（列）の個数が固定なのに変数にする必要はないのではないですか？