VB：怎样将查询结果导出到Excel

下一页 1 2 

　　 
　　如果你想将查询结果导出到Excel另存，以便日后查看或打印的话，那么我这里说的就是怎样将查询结果导出到Excel。先来写一个函数FillDataArray，该函数的主要作用是将查询语句中的字段名和查到的记录导入到Excel中。

　　Public Function FillDataArray(asArray(), adoRS As ADODB.Recordset) As Long
　　'将数据送 Excel 函数
　　Dim nRow As Integer
　　Dim nCol As Integer
　　On Error GoTo FillError
　　ReDim asArray(100000, adoRS.Fields.Count)
　　nRow = 0　
　　 For nCol = 0 To adoRS.Fields.Count - 1
　　 asArray(nRow, nCol) = adoRS.Fields(nCol).Name
　　 Next nCol
　　 nRow = 1
　　Do While Not adoRS.EOF
　　 For nCol = 0 To adoRS.Fields.Count - 1
　　 asArray(nRow, nCol) = adoRS.Fields(nCol).Value
　　 Next nCol
　　 adoRS.MoveNext
　　 nRow = nRow + 1
　　Loop
　　nRow = nRow + 1
　　FillDataArray = nRow
　　Exit Function
　　FillError:
　　 MsgBox Error$
　　 Exit Function
　　 Resume
　　End Function

原文转自：http://www.ltesting.net