Private Sub cmdExport_Click() Dim i As Integer, r As Integer, c As Integer '声明局部变量 Dim newxls As New Excel.Application '声明Excel的Application对象的实例 Dim newbook As New Excel.Workbook '声明Excel的Workbook对象的实例 Dim newsheet As New Excel.Worksheet '声明Excel的Worksheet对象的实例 Set newbook = newxls.Workbooks.Add '创建工作簿 Set newsheet = newbook.Worksheets(1) '创建工作表 If Adodc1.Recordset.RecordCount > 0 Then '如果ADO控件的记录集大于0 For i = 0 To DataGrid1.Columns.Count - 1 ' 循环添加表头 newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption 'Excel的表头为DataGrid控件的表头 Next i '指定表格内容 Adodc1.Recordset.MoveFirst '把ADO控件的指针移到第一条记录 Do Until Adodc1.Recordset.EOF '复制所有的记录 r = Adodc1.Recordset.AbsolutePosition '指定Recordset对象当前记录的序号位置。 For c = 0 To DataGrid1.Columns.Count - 1 '循环读取每一行的数据 DataGrid1.Col = c '读取第c列的数据 newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c) '复制单元格的内容 Next c Adodc1.Recordset.MoveNext 'ADO控件的指针移到下一条记录 Loop newxls.Visible = True '显示创建的Excel应用文件 End If End Sub够详细吧,如果还不行给我邮箱,我把整个发给你,呵呵。
Dim i As Integer, r As Integer, c As Integer '声明局部变量
Dim newxls As New Excel.Application '声明Excel的Application对象的实例
Dim newbook As New Excel.Workbook '声明Excel的Workbook对象的实例
Dim newsheet As New Excel.Worksheet '声明Excel的Worksheet对象的实例
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
If Adodc1.Recordset.RecordCount > 0 Then '如果ADO控件的记录集大于0
For i = 0 To DataGrid1.Columns.Count - 1 ' 循环添加表头
newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption 'Excel的表头为DataGrid控件的表头
Next i
'指定表格内容
Adodc1.Recordset.MoveFirst '把ADO控件的指针移到第一条记录
Do Until Adodc1.Recordset.EOF '复制所有的记录
r = Adodc1.Recordset.AbsolutePosition '指定Recordset对象当前记录的序号位置。
For c = 0 To DataGrid1.Columns.Count - 1 '循环读取每一行的数据
DataGrid1.Col = c '读取第c列的数据
newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c) '复制单元格的内容
Next c
Adodc1.Recordset.MoveNext 'ADO控件的指针移到下一条记录
Loop
newxls.Visible = True '显示创建的Excel应用文件
End If
End Sub够详细吧,如果还不行给我邮箱,我把整个发给你,呵呵。