vb 执行sql语句得到的结果集怎样输出到excel单元格中？

Question

使用vba中的range("a5").CopyFromRecordset rst提示错误。怎样才能把结果集全部输出到excel表中？结果集是多行多列的数据。

Answer 1

可以，在vb窗口建个datagrid，adodc，用adodc绑定你的数据库，datagrid的DataSource选择那个adodc，这样就能把记录集中的数据显示在datagrid表格中，然后再把datagrid表格中的查询结果导入到Excel中，把datagrid导入到Excel的代码如下：

Dim ex As Object

Dim i As Integer

Dim j As Integer

Dim XlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Set XlApp = CreateObject("Excel.Application")

XlApp.Visible = True

Set xlBook = XlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)

For i = 0 To DataGrid1.Columns.Count - 1

For j = 0 To DataGrid1.ApproxCount - 1

DataGrid1.Col = i

On Error Resume Next

DataGrid1.Row = j

xlSheet.Cells(j + 1, i + 1) = DataGrid1.Columns.Item(i).Text

Next j

Next i

上述代码可以做进按钮里，记得引用里面添加Excel的dll

望采纳

Answer 2

啥错误，看代码没问题，我用了也没问题，估计你的记录集没数据吧

Answer 3

？？？？？？？？？？？？？