Excel宏操作剪貼簿

先菜單  插入－－使用者表單。

然後，檔案移除剛插入的使用者表單。

 

（作這兩步的目的是為了，引用“Microsoft Forms 2.0 Object Library”。）

 

準備工作完了，代碼如下：

 

Sub Test()</p><p>Dim MyData As DataObject<br />Set MyData = New DataObject<br />MyData.GetFromClipboard<br />MyData.SetText "123", 1 '將文本放入剪貼簿<br />MyData.PutInClipboard '將內容置於windows剪貼簿中<br />Cells(1, 1) = MyData.GetText(1) '將文本取出</p><p>End Sub