vntAへvntBの値を入れていきたいのですが
F8でステップ実行の場合は配列に値が格納されていきます
F5で処理を流すとvntBが入る所が空になってしまいます
やり方が悪いのでしょうか？
また、他にやり方はありますでしょうか？
ちなみにUBound(vntB)=1、 UBound(vntB, 2)=234件です
Dim vntA As Variant
Dim vntB As Variant
'２次元で構成（フィールド数、レコード数）
vntA = ADO_RecSet.GetRows()
vntB = ADO_RecSet.GetRows()
If IsNull(vntB) = False And IsEmpty(vntB) = False Then
lngStart = 0
If IsNull(vntA) = False And IsEmpty(vntA) = False Then
lngStart = UBound(vntA, 2) + 1
End If
For i = 0 To UBound(vntB)
For j = 0 To UBound(vntB, 2)
ReDim Preserve vntA(UBound(vntB), lngStart + j)
vntA(i, lngStart + j) = vntB(i, j)
Next j
Next i
End If
解決しました。
ReDim Preserveの位置が悪かったですね。