在VBA中如何使用ClipBoard

Office剪贴板，还是系统剪贴板？

'清空系统剪贴板
Dim MyData As DataObject

Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard

'获取系统剪贴板数据

Dim MyData As DataObject
Dim strClip As String

Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText