Office中国论坛/Access中国论坛

标题: 在窗体中如何导出查询后的子窗体中的数据 [打印本页]

作者: gzls 时间: 2006-4-21 01:39
标题: 在窗体中如何导出查询后的子窗体中的数据
我是新手，正在学习中，多谢帮忙！

附件里导出的是查询"成绩统计"中的所有数据,能不能只导出查询后的子窗体中的数据(EXCEL格式)[attach]17272[/attach]

作者: fan0217 时间: 2006-4-21 04:30
海狸先生:导出数据表型子窗体内容到Excel:http://www.office-cn.net/forum.php?mod=viewthread&tid=30901&replyID=&skin=1

作者: gzls 时间: 2006-4-21 05:16

以下是引用fan0217在2006-4-20 20:30:00的发言：
海狸先生:导出数据表型子窗体内容到Excel:http://www.office-cn.net/forum.php?mod=viewthread&tid=30901&replyID=&skin=1

新手看不懂代码，希望有实例。别见笑。

作者: qlm 时间: 2006-4-21 05:32
'把以下代码粘到你的文件中
Private Sub cmd导出_Click()
Dim oExcel As Object
Dim oBook As Object
Dim i As Integer

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add()

Me.成绩统计子窗体.Form.Recordset.MoveFirst

For i = 0 To Me.成绩统计子窗体.Form.Recordset.Fields.Count - 1
oBook.Worksheets(1).Cells(1, i + 1).Value = Me.成绩统计子窗体.Form.Recordset.Fields(i).Name
Next

oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.成绩统计子窗体.Form.Recordset
oBook.SaveAs ("c:\Test.xls")
oBook.Close False
oExcel.Quit

Set oBook = Nothing
Set oExcel = Nothing
MsgBox ("打开C盘:text.xls")
End Sub

作者: fan0217 时间: 2006-4-21 05:35
试试这段代码:

Private Sub cmd导出_Click()

On Error GoTo Err_cmd导出_Click
Dim oExcel As Object
Dim oBook As Object
Dim i As Integer
Dim strFilePath As String

strFilePath = CurrentProject.Path & "Test.xls"

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add()

Me.成绩统计子窗体.Form.Recordset.MoveFirst

For i = 0 To Me.成绩统计子窗体.Form.Recordset.Fields.Count - 1
oBook.Worksheets(1).Cells(1, i + 1).Value = Me.成绩统计子窗体.Form.Recordset.Fields(i).Name
Next

oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.成绩统计子窗体.Form.Recordset
oBook.SaveAs (strFilePath)
oBook.Close False
oExcel.Quit

Set oBook = Nothing
Set oExcel = Nothing

Exit_cmd导出_Click:
Set oBook = Nothing
Set oExcel = Nothing
Exit Sub

Err_cmd导出_Click:
MsgBox Err.Description
Resume Exit_cmd导出_Click

End Sub

作者: gzls 时间: 2006-4-21 05:52
谢了！我先试试。

[em17]版主的代码能用！

[此贴子已经被作者于2006-4-20 22:02:28编辑过]

作者: evilchild 时间: 2006-6-21 00:48
不错

作者: maxihone 时间: 2006-11-23 05:18
[em01][em01]好

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)