在窗体中如何导出查询后的子窗体中的数据

gzls

我是新手，正在学习中， 多谢帮忙！

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

fan0217

海狸先生:导出数据表型子窗体内容到Excel:http://www.office-cn.net/forum.php?mod=viewthread&tid=30901&replyID=&skin=1

gzls

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

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

qlm

'把以下代码粘到你的文件中
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

试试这段代码:

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

谢了！我先试试。

[em17]版主的代码能用！

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

evilchild

不错

maxihone

[em01][em01]好