剪贴板如何才能做到不提示就自动清除

cdcpy · 发表于 2006-10-25 11:36

宏运行中出现“剪贴板是否要清除”的提示，能否可以做到不提示就自动清除？

Aeolian-Vox · 发表于 2006-10-25 11:40

用一句：

Application.CutCopyMode=xlCopy

[此贴子已经被作者于2006-10-25 11:40:41编辑过]

cdcpy · 发表于 2006-10-26 10:10

是把原来的代码是Application.CutCopyMode = False改成Application.CutCopyMode=xlCopy吗？结果是没什么作用。还请详细讲解，谢谢。

Aeolian-Vox · 发表于 2006-10-26 11:05

这句不能避免程序出现：“剪贴板是否要清除”的提示？

[此贴子已经被作者于2006-10-26 11:06:53编辑过]

nolo · 发表于 2006-10-26 12:45

試試這樣

Application.DisplayAlerts = False

cdcpy · 发表于 2006-10-28 23:26

谢谢nolo指点，“剪贴板是否要清除”的提示可以去掉了，不过剪贴板里储存的数据仍不能自动清除，每复制一次都在增加剪贴板内容啊！

cdcpy · 发表于 2006-11-7 16:10

等待中

nolo · 发表于 2006-11-8 00:34

轉貼 LEONCHOU大大之

Clipboard - 存取剪貼簿

DataObject 是應用程式和剪貼簿(Clipboard)之間的橋樑，
可以透過 DataObject 物件存取剪貼簿的內容。
DataObject 內容會隨著應用程式關閉而消失，
而剪貼簿內容則只要不離開Windows就不會消失。

以下程式會宣告並用到 DataObject 物件型態，
使用前必須確定已引用 MS Forms 2.0 Object Library。
(設定引用程式庫的方式請參考下圖)

Sub 取得剪貼簿內容()
　Dim data As New DataObject
　data.GetFromClipboard
　Range("A1") = data.GetText(1)
End Sub

Sub 寫入剪貼簿()
　Dim data As New DataObject
　chars = [A1].Characters(3, 5).Text '取得A1部份內容
　data.SetText chars '寫入DataObject
　data.PutInClipboard '寫入剪貼簿
　[B1].Select
　ActiveSheet.Paste '再貼到B1
End Sub

Sub 清除剪貼簿內容()
　Dim data As New DataObject
　Set data = New DataObject
　data.SetText ""
　data.PutInClipboard
End Sub

你可以對 DataObject 使用 Clear 方法來清除它的內容，
但這方法在這裡並不實際，
不如直接傳送一個空字串到剪貼簿裡，如上面範例。

http://gb.twbts.com/index.php/topic,1878.0.html

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