当前窗体怎么导出到Excel表格

徐吉林　发表于：2011-07-29 21:27:56 　

复制

子窗体中的内容用右键按选定内容筛选，要求把筛选后的内容导出到Excel表格，而现在导出的却是全部内容，请老师把导出的代码给写一下，谢谢。

点击下载此附件

Top

网行者发表于：2011-07-30 06:23:23

点击下载此附件

Top

风行发表于：2011-07-30 09:24:54

【Access源码】一个用于将记录集数据导出到Excel的函数-Access软件网
http://www.accessoft.com/article-show.asp?id=4906

Top

赵文斌发表于：2011-07-30 10:32:27

Me.Child.SetFocus
Dim Obj As Object
        DoCmd.RunCommand acCmdSelectAllRecords
        DoCmd.RunCommand acCmdCopy
        Set Obj = CreateObject("excel.application")
        Obj.Application.Workbooks.add
        Obj.Application.Visible = True
        SendKeys "^v"

Top

徐吉林发表于：2011-07-30 15:15:54

赵文斌老师你好，你写的代码我用了，但在不同的电脑上这段代码有时好用，有时不好用，不知是什么原因，望在百忙中帮助研究一下，谢谢

Top

徐吉林发表于：2011-07-30 15:26:25

网行者老师你好，你给我回复的帖子我看了，把你写的代码也用到了我的程序中，但有一个问题还得请你帮我解决一下，就是你写的那段代码在有的电脑上用好使，在有的电脑上用就不好用，我也不知道是什么原因，我想用这段代码DoCmd.RunCommand acCmdOutputToExcel，这段代码只能导出主窗体上的数据，但导出子窗体上的数据的代码我就不会写了，请老师帮助写一下，谢谢。

Top

枫叶发表于：2011-09-07 16:29:18

Private Sub Command0_Click()
DoCmd.OutputTo acForm, "子窗体", "MicrosoftExcel(*.xls)", "", True, ""
End Sub

Top

符鸿敏发表于：2011-09-07 19:33:54

点击下载此附件

Top

lyxiong 发表于：2011-09-08 21:33:58

点击下载此附件

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

当前窗体怎么导出到Excel表格