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

发布网友 发布时间：2022-04-25 00:05

我来回答

共3个回答

热心网友 时间：2022-04-08 05:47

可以，在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

望采纳

热心网友 时间：2022-04-08 07:05

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

热心网友 时间：2022-04-08 08:39

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