（已解决）在VBA编程中，如何清空剪贴板内容？

ljw990485 · 发表于 2009-4-26 19:54

原帖由三戒于 2009-4-24 16:44 发表
2楼正解，必须借助API

错

Dim MyData As New DataObject
MyData.SetText ""
MyData.PutInClipboard
Set MyData=nothing

秦还丹 · 发表于 2009-4-27 08:39

Dim MyData As New DataObject
MyData.SetText ""
MyData.PutInClipboard
Set MyData=nothing

这种方便多啦

渔君 · 发表于 2017-12-8 11:10

ljw990485 发表于 2009-4-26 19:54
错

Dim MyData As New DataObject

我试了，并没有清空。难道是方法有误？我是把这段单独放在模块中的一个过程中，在其它过程中调用的。

liguibin · 发表于 2019-8-1 16:07

秦还丹发表于 2009-4-27 08:39
:handshake 这种方便多啦

请问，能给个具体步骤吗？

lmw17009 · 发表于 2020-3-17 09:03

ljw990485 发表于 2009-4-26 19:54
错

Dim MyData As New DataObject

这个比api更好！

帅GUO · 发表于 2020-7-22 17:21

本帖最后由帅GUO 于 2020-7-22 20:09 编辑

ljw990485 发表于 2009-4-26 19:54
错

Dim MyData As New DataObject

已解决

帅GUO · 发表于 2020-7-22 17:23

本帖最后由帅GUO 于 2020-7-22 20:09 编辑

热浪2006 发表于 2009-4-24 15:22
Application.CutCopyMode = False

帅GUO · 发表于 2020-7-22 19:38

本帖最后由帅GUO 于 2020-7-22 20:10 编辑

yygy 发表于 2009-4-24 14:54
Option Explicit
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Pu ...

帅GUO · 发表于 2020-7-22 19:57

本帖最后由帅GUO 于 2020-7-22 20:05 编辑

好了，解决了，把New DataObject改一下就好了，用set,其实有用new这个方法的，但我试过会出错，还有别的例子用字典的，用new的也试过出错，但是没说出来，这个出错的我得上个图才行，不然怕你们不相信

jizhaozeng · 发表于 2020-8-5 04:25

帅GUO 发表于 2020-7-22 19:57
好了，解决了，把New DataObject改一下就好了，用set,其实有用new这个方法的，但我试过会出错，还有别的例 ...

怎么修改的呢？求指教

		自动登录	找回密码
密码			免费注册

[已解决] （已解决）在VBA编程中，如何清空剪贴板内容？