[分享]导出数据表型子窗体内容到Excel

ok003

以下是引用esmile在2005-8-16 21:43:00的发言：


很好,其实改为通用函数岂不更好?

Public Sub rs2xls(rs As Object)
'将子窗体记录复制到XLS中
On Error GoTo errit
'set rs = Me.子窗体.Form.Recordset
Dim oExcel As Object
Dim oBook As Object
Dim i As Integer
   
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add()
   
   rs.MoveFirst
   
   For i = 0 To rs.Fields.Count - 1
      oBook.Worksheets(1).Cells(1, i + 1).Value = rs.Fields(i).Name
   Next

   oBook.Worksheets(1).Range("A2").CopyFromRecordset rs
   oBook.SaveAs ("C:\Book1.xls")   ''我可以自己选择保存路径和文件名吗？
   MsgBox "导出成功"
'打開文件時用到.

'ShellExecute Application.hWndAccessApp, "Open", "d:\Test.xls", "", "d:\", SW_NORMAL

errexit:
   oBook.Close False
   oExcel.Quit
   Set oBook = Nothing
   Set oExcel = Nothing
   Exit Sub

errit:
   MsgBox "错误号为" & Err.Number & " 错误说明：" & Err.Description
   Resume errexit

End Sub

然后在窗体中调用即可:


Private Sub Command1_Click()
rs2xls subfrm.Form.Recordset   '子窗体: subfrm
End Sub

我试了一下很好用，只是第二次导出时得把第一次导出的book1.xls挪开或者改名，不然的话就得覆盖了，我想请问可不可以选择路径和文件名

？

ok003

以下是引用爱情插班生在2005-9-8 15:43:00的发言：


整理:1.子窗体导出,筛选,2. 奇怪的lookup_筛选字符....

并提出问题: 如何不导出隐藏列!          swdq
[em01][em01][em01]

还有就是怎么导出字段的标题？我的表格设置字段名为字母，标题是汉字，怎么可以导出去的xls表标题也是汉字？


比如我要导出去的子窗体字段引用为"xm"，字段的标题是"姓名"，我想要导出去的表，标题是"姓名"，而不是"xm"

[此贴子已经被作者于2006-2-7 14:49:09编辑过]

h333

真精彩

ederais

边顶边看边下～～

ABCaccess

谢谢你与大众分享

chaojianan

谢谢海狸先生。

shines

谢谢分享