Office中国论坛/Access中国论坛

标题: 求清空剪切板的VBA命令 [打印本页]

作者: mclly2000 时间: 2012-12-25 15:58
标题: 求清空剪切板的VBA命令
本帖最后由 mclly2000 于 2012-12-25 17:40 编辑

Private Sub Command5_Click()
Me.Child0.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject("excel.application")
obj.workbooks.Add
obj.Visible = True
SendKeys "^v"
obj.Visible = True
End Sub

上面这段语句如何让数据复制到Excel表格之后将剪切板清空
请各位老师帮帮忙，谢谢
问题补充：我在执行上述语句之后（导出2万多条数据至EXCEL表），点击该主窗体的退出命令后好长时间才关闭主窗体，不知道为什么，是剪切板有很多数据的原因吗？应该如何改变这种情况呢？

有老师说是我导出后没有释放，我不知道应该处理，请大家看看附件，谢谢

或者不使用这种语句导出数据，我要是直接使用宏导出数据，发现导出的是空白；如果这个子窗体的记录集在窗体加载时赋值，用宏可以导出数据。关闭主窗体也很快，但是用这种语句导出数据关闭主窗体就很慢，郁闷啊，请高手赐教...

作者: tmtony 时间: 2012-12-25 16:10
要用API了,搜索 VB 清剪切板

作者: tmtony 时间: 2012-12-25 16:11
http://www.office-cn.net/forum.p ... =%BC%F4%C7%D0%B0%E5

作者: mclly2000 时间: 2012-12-25 16:24

tmtony 发表于 2012-12-25 16:11
http://www.office-cn.net/forum.php?mod=viewthread&tid=18507&highlight=%BC%F4%C7%D0%B0%E5

vba中不能使用API

作者: tmtony 时间: 2012-12-25 16:49
你是access 还是 Excel
access可使用api

作者: mclly2000 时间: 2012-12-25 17:31
本帖最后由 mclly2000 于 2012-12-25 17:34 编辑

tmtony 发表于 2012-12-25 16:49
你是access 还是 Excel
access可使用api

继续请教王站长，我传了附件，里面有代码，请老师看看，是不是没有释放的原因{:soso_e100:}

作者: huangli0356 时间: 2012-12-26 08:51
受用啦..

作者: mclly2000 时间: 2012-12-26 08:52

cuxun 发表于 2012-12-25 17:45
模块级API代码:
Private Const GHND = &H42
Private Const CF_TEXT = 1

感谢大肚老师，放在关闭窗体按钮的单击事件可以实现，非常感激

作者: ak47ok 时间: 2015-11-28 13:15
每次回帖、谢谢！辛苦了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)