Question

在VBA中如何将SQL得到的数据直接赋值到数组

Answer 1

EXCEL表的单元格区域是一个二维数组
dim arr
arr=Sheet3.Range("D7:D9")
'这时的arr得到的是二维数组
'你要转换成1维数组，先声明一个动态数组再重定义为1维数组
dim brr()
redim brr(1 to ubound(arr))
'再重新将二维转一维
for i = 1 to ubound(arr)
brr(i)=arr(i,1)
next
'如果你是要间隔写进去
for i = 1 to ubound(arr) step 2
brr(i)=arr(i,1)
next

Answer 2

用循环，迭代recordset，然后添加到动态数组就行了

Answer 3

dim a() as variant
Sheet1.Range("A1").CopyFromRedordset(rec)

a=sheet1.Range("A1").CurrentRegion