Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

导出子窗体数据到EXCEL通用代码注意事项

时 间:2012-05-25 23:46:25
作 者:殷小宝   ID:11152  城市:芜湖
摘 要:导出到Excel通用代码使用技巧。
正 文:

将子窗体数据导出到Excel代码如下:

Private Sub cmdExport_Click()

    Dim obj As Object

    Me![frmExamregister_child].SetFocus

    DoCmd.RunCommand acCmdSelectAllRecords

    DoCmd.RunCommand acCmdCopy

    DoEvents

    SendKeys "{TAB}", True

    Set obj = CreateObject("Excel.Application")

    obj.Workbooks.Add

    obj.Visible = True

    SendKeys "^v", True

 

End Sub

但点击"导出"按钮时通常会出现这样的错误:

点击"调试"会出现下列错误:

怎么解决这一问题呢?数据表窗体有一个类似于Excel表中的全选按钮,如图所示:

要使这个"全选"按钮起作用,必须将第一行选中或将最左最上的单元格选中,再点击"全选"按钮,这样就能选中数据表中的全部记录.因此要想使上面的代码发挥作用,必须将光标定在最左上单元格上或选中第一行,再单击"导出"按钮,这样就会顺利地导出到Excel表中去,不会出现上述错误了.



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助