请高手救个急，如何经过筛选后导出到Execl？

tmsz249 · 发表于 2004-7-16 16:57

我已做成导出到Excel，但是导出的是全表，请问如何使其按筛选后的数据导出到Excel。请各位高手帮帮忙，谢谢！

文件已上传，请参考。

egV8ksqD.rar (30.23 KB, 下载次数: 40)

tmsz249 · 发表于 2004-7-16 17:46

谢谢，可是你给的链接文章好象和我的要求不符合呀？

丑陋裸男 · 发表于 2004-7-20 13:57

又要好好研究了。谢谢。

cg1 · 发表于 2004-7-19 16:35

关于此主题请参考：新手来看：如何将数据表导出备份到excel表格《表》 http://access911.net/index.asp?u1=a&u2=74FAB31E14DC

loadhigh · 发表于 2004-7-18 14:46

你好！你的程序中还需要引用MICROSOFT EXCEL OBJECT LIBRARY。如下为该按钮的代码。后附加入了代码的上传文件。

Private Sub 命令10_Click() On Error GoTo Err_命令10_Click Dim xlbook As Excel.Workbook Set oApp = CreateObject("Excel.Application") oApp.Visible = True 'Only XL 97 supports UserControl Property Set xlbook = oApp.Workbooks.Add With student.Form For j = 1 To .Recordset.Fields.Count xlbook.Sheets(1).Cells(1, j) = .Recordset.Fields(j - 1).Name '第一行作为标题行 Next For i = 1 To .Recordset.RecordCount For j = 1 To .Recordset.Fields.Count xlbook.Sheets(1).Cells(i + 1, j) = .Recordset.Fields(j - 1) '第2行为数据行 Next Next End With xlbook.SaveAs "c:\关于" + Trim(student.Form.Recordset.Fields(0)) + "的查询结果.xls" xlbook.Close oApp.Quit Set xlbook = Nothing Set oApp = Nothing On Error Resume Next oApp.UserControl = True

Exit_命令10_Click: Exit Sub

Err_命令10_Click: MsgBox Err.Description Resume Exit_命令10_Click End Sub

Te7gf0m2.rar (32.73 KB, 下载次数: 47)

[此贴子已经被作者于2004-7-18 15:06:33编辑过]

loadhigh · 发表于 2004-7-16 17:10

你好！参考如下链接的内容：

http://www.mscommunity.com/article/article.asp?old=0&id=1361

		自动登录	找回密码
密码			免费注册