ジャグ配列生成時の1オリジン
ExcelVBAで、CSVFileを取込み、シートを介さずに
配列へ格納する処理をしています。
尚、一行のデータの数が変わる可能性があるため、
ジャグ配列にしています。
Dim FileNamePath As Variant 'CSVファイルパス
Dim CSVFile() As Variant
Dim ch1 As Long
Dim RowCnt As Long
～略～
ch1 = FreeFile
Open FileNamePath For Input As #ch1
RowCnt = 1
Do While Not EOF(ch1)
ReDim Preserve CSVFile(RowCnt)
Line Input #ch1, CSVFile(RowCnt)
CSVFile(RowCnt) = Replace(CSVFile(RowCnt), """", "")
CSVFile(RowCnt) = Split(CSVFile(RowCnt), ",")
RowCnt = RowCnt + 1
Loop
～略～
この時、後の処理でやりやすくするために配列の添字を
1からにしたく、行の添字となるRowCntを1としています。
同様に列となる添字も1からとしたくて、モジュールの宣言にて
「Option Base 1」としましたが、上記コードでジャグ配列を
生成すると、(多次元配列で言う)2次元目の添字は
0からとなってしまいます。
例：CSVFile(1)(0)
このような状況で、ジャグ配列でも1オリジンとするには
どのようにすれば良いのでしょうか。
宜しくお願い致します。
