将子窗体数据导出到Excel屏蔽系统提示的问题！

sxgaobo

这是在论坛里学到的方法，忘了是哪位高手的，   
    Me.子窗体.SetFocus
    DoCmd.GoToRecord , , acFirst
    DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
  
    Dim obj As Object
    Set obj = CreateObject("excel.application")
    obj.Workbooks.Add
    obj.Visible = True
    SendKeys "^v"
    On Error Resume Next
    oApp.UserControl = True
现在有这样的问题，导出的数据多时，当关闭窗体时就出现下面的提示，如何能去掉啊？


[ 本帖最后由 sxgaobo 于 2008-10-18 15:56 编辑 ]

雪野情匆

按照我的理解，不管你用什么程式，当你复制了大量的数据时，Windows都会提示你这一项，并不是你这个操作有任何任题

我个人理解，当复制数据超过一定数量，比尔。盖茨担心你不小心关闭某个源程式会造成内存里的数据消失，故有一个“可靠性”方面的选择动作和提示。

当然，你修改上面的代码也可以去掉这个信息，前提示你从内存里干掉它

DoCmd.RunCommand acCmdClearAll

[ 本帖最后由 雪野情匆 于 2008-10-21 17:05 编辑 ]

sxgaobo

怎样可以将那提示屏蔽了啊？

sxgaobo

[:24] 帮忙啊！

sxgaobo

[:25]

sxgaobo

等待中！

sxgaobo

继续等待~~！！！

sxgaobo

没有办法吗？

kevindeng

可以用API来在EXCEL退出之前先清楚掉粘贴板上的信息,这样就不会有那个提示了.
具体的API的操作,可以查看API的相关文档

sxgaobo

能帮忙做做吗？[:24]