[轉貼] 轉貼 Clipboard - 存取剪貼簿

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 41
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-16

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-2-11 23:06 | 只看該作者

[轉貼] 轉貼 Clipboard - 存取剪貼簿

轉貼自舊論壇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 方法來清除它的內容，
但這方法在這裡並不實際，
不如直接傳送一個空字串到剪貼簿裡，如上面範例。