将子窗体数据导出到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表中去,不会出现上述错误了.