Excel2002 配列の取得
いつもお世話になっております。
Excelのデータを行単位で配列に書き換える処理を
VBAで記述しています。
'******************************************************
'*** 行のループ処理(見出し行を含まず2行目から)
For intCnt = 1 To intRow
'*** 列のループ処理
For intCnt2 = 1 To 58
'*** セル範囲を配列変数に格納する
varUPDT = wsWS.cells(intCnt, 1).Resize(intCnt, 58).Value
If intCnt2 = 1 Then
varDATA = "('" & varUPDT(intCnt, intCnt2) & "'"
Else
If varUPDT(intCnt, intCnt2) = Empty Then
varUPDT(intCnt, intCnt2) = 0
Else
End If
'*** テキスト型の列を指定
If intCnt2 = 2 Then
varDATA = varDATA & ",'" & varUPDT(intCnt, intCnt2) & "'"
Else
varDATA = varDATA & "," & varUPDT(intCnt, intCnt2)
End If
End If
Next intCnt2
varDATA = varDATA & ")"
Next intCnt
'******************************************************
取得した結果を見ると、なぜか奇数行のみが
取得されています。
行の変数(IntCnt)は1ずつ増えていっているのに不思議です。
間違いをご指摘いただきたく存じます。
どうぞよろしくお願いいたします。
お礼
早速のお返事ありがとうございます。 解決しました。 今回は誠にありがとうございました。