使用数组将记录集复制到Excel

Question

我创建了连接cn以及变量数组vArray和sSQL作为字符串。

使用代码时

Dim cn As ADODB.Connection, vArray, sSQL as string, rng as Range
set rs=cn.Execute(sSQL)
    vArray = rs.GetRows
    With rng.Resize(UBound(vArray, 1) + 1, UBound(vArray, 2) + 1)
        .Value = vArray
    End With

vArray可以很好地获取数据，但是将其复制到工作表时，它会将数字截断为仅两位十进制数字。如何将所有数字（如3位）保留在电子表格中？