VBA操作剪貼簿資料

一、設定剪貼簿內容

"僅對窗體有效，DataObject 是MSFORM子類

Dim MyData As New DataObject "宣告新DataObject 類

MyData.SetText "文字內容" "設定文字，可以將Me.TextBox1.Text作為文字傳遞

MyData.PutInClipboard "送入剪貼簿

二、讀取剪貼簿內容

Function GetClipBoardText()

"將剪貼簿中的文字輸出到一變數。

Dim MyData As DataObject

Set MyData = New DataObject

" 如果剪貼簿的資料是文字

If MyData.GetFormat(1) = True Then

" 從剪貼簿中獲得資料

MyData.GetFromClipboard

" 把資料返回給函式值

GetClipBoardText = MyData.GetText(1)

End If

End Function