myarray=rs.GetRows'将记录集结果赋值给数组示例语句
重置数组大小
ReDim myarray(UBound(myarray) + 1)'重置数组大小不保留原来数据
ReDim Preserve myarray(UBound(myarray) + 1)'重置数组大小且保留原来数据
将数组写入表格
[a1:a?] = Application.WorksheetFunction.Transpose(myarray)
EXCEL之VBA将记录集赋值给数组及数组常用操作
最新推荐文章于 2022-02-15 09:46:23 发布