把此代码放到你的”EXCEL”的按纽代码下面就能实现.
Dim r As Integer, c As Integer
Dim newxls As excel.Application
Dim newbook As excel.Workbook
Dim newsheet As excel.Worksheet
Set newxls = CreateObject(\＂Excel.Application\＂) \'创建excel应用程序，打开excel2000
Set newbook = newxls.Workbooks.Add \'创建工作簿
Set newsheet = newbook.Worksheets(1) \'创建工作表
Adodc1.RecordSource = \＂select * from individual order by 编号\＂
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
newxls.Visible = True
For i = 0 To DataGrid1.Columns.Count - 1
newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption
Next i
\'指定表格内容
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
r = Adodc1.Recordset.AbsolutePosition
For c = 0 To DataGrid1.Columns.Count - 1
newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c)
Next c
Adodc1.Recordset.MoveNext
Loop
End If
标注：\'“individual” 为你想生成报表的表名称。编号为表中的字段。
Adodc1为连接的数据库控件。
本文地址：https://www.39baobao.com/show/22_10898.html
以上内容来自互联网，请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权，请联系我们，我们会及时处理和回复，谢谢.
