各位大侠：从DBGRID中查询到的数据内容，怎么样才能导出到EXCEL中！

2004-09-07 01:26:49 146 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

sstlwg 墨衍会员 · AI 创作全网分发关注 + 加入社区

Delphi DBGrid导出Excel2010 下面，我们将介绍如何使用 Delphi 语言将 DBGrid 中的数据导出到 Excel 2010 中。Delphi DBGrid 导出 Excel 2010 的实现步骤：1. 立即下载

...全文

delphi 将DBGrid的数据导出到Excel 这样，用户可以在导出过程中随时取消导出操作。在下面的代码中，我们可以看到一个完整的示例代码，用于将 DBGrid 中的数据导出到 Excel 文件中。立即下载

sstlwg

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

ajianchen2002 2004-09-08

打赏
举报

请教楼上的大哥
我调用你的函数
为什么在 mGrid.MoveFirst 上报错
未找到数据方法或成员
请指教

online 2004-09-07

打赏
举报

使用了DataGrid,但是方法都差不多
private Sub GridTOexcel(mGrid As DataGrid)
Dim ColCount, i, k As Integer
Dim xlApp As New Excel.Application, xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet, sRange As String

ColCount = mGrid.Columns.Count

xlApp.Visible = False

Set xlBook = xlApp.Workbooks.Add
Set xlsheet = xlBook.Worksheets(3)
xlsheet.Visible = xlSheetHidden
Set xlsheet = xlBook.Worksheets(2)
xlsheet.Visible = xlSheetHidden '//隐藏sheet2
Set xlsheet = xlBook.Worksheets(1)
xlsheet.Name = "导出数据"
VB.Screen.MousePointer = vbHourglass
xlsheet.Range(xlsheet.Cells(1, 1), xlsheet.Cells(1, ColCount)).Merge
xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(2, ColCount)).Font.Size = 10

'//设置标题

For i = 0 To ColCount - 1
xlsheet.Columns(i + 1).ColumnWidth = mGrid.Columns(i).Width / 120
If mGrid.Columns(i).Visible = True Then
xlsheet.Cells(2, i + 1) = mGrid.Columns(i).Caption
End If
Next

mGrid.MoveFirst
i = 0
'//从网格到excel
While Not mGrid.EOF
xlsheet.Range(xlsheet.Cells(i + 3, 1), xlsheet.Cells(i + 3, ColCount)).Font.Size = 10
For k = 0 To ColCount - 1
If Not IsNull(mGrid.Columns(k).Value) Then
If mGrid.Columns(k).Visible = True Then
xlsheet.Cells(i + 3, k + 1) = CStr(mGrid.Columns(k).Value)
End If
End If
Next
mGrid.MoveNext
i = i + 1
Wend

'//关闭操作台
xlBook.SaveAs "D:\kk.xls"
xlBook.Close False
xlApp.Quit
Set xlApp = Nothing
VB.Screen.MousePointer = vbDefault
Msgbox "数据导出完毕！"
End Sub

各位大侠：从DBGRID中查询到的数据内容，怎么样才能导出到EXCEL中！

相关推荐