通过buttonVBA Excel将文本粘贴到文本框

我想在MS Excel中复制和粘贴button，复制button看起来像这样

Private Sub CommandButton1_Click() Dim MyData As New DataObject MyData.SetText TextBox1.Text MyData.PutInClipboard End Sub 

现在，我怎样才能以类似的方式编写/编码粘贴button？

Answer 1

正如在评论中提到的， 从使用GetText从剪贴板获取文本 – 避免空剪贴板上的错误帮助我到达我正在寻找的解决scheme。

  Dim DataObj As MsForms.DataObject Set DataObj = New MsForms.DataObject On Error GoTo Whoa '~~> Get data from the clipboard. DataObj.GetFromClipboard '~~> Get clipboard contents Me.txtKordinatat.Value = DataObj.GetText(1) Exit Sub Whoa: If Err <> 0 Then MsgBox "Data on clipboard is not text or is empty"