如何使用 VBA 将文本复制到剪贴板？

Question

I need a bit help.. How to copy data automatically to the clipboard from the textbox? This is a part of the programm, I already tried a few things..

Sheets("Sheet1").Cells(sor, 1).Value = serial
Sheets("Sheet1").Cells(1, 2).Value = futo
UserForm1.TextBox1.Value = serial
ActiveWorkbook.Save
Application.AlertBeforeOverwriting = False

Dim MyData As DataObject

Set MyData = New DataObject
MyData.SetText UserForm1.TextBox1
MyData.PutInClipboard

End If

Answer 1

You are referencing the TextBox object, not the Text property of it. Try this.

Sheets("Sheet1").Cells(sor, 1).Value = serial
Sheets("Sheet1").Cells(1, 2).Value = futo
UserForm1.TextBox1.Value = serial
ActiveWorkbook.Save
Application.AlertBeforeOverwriting = False

Dim MyData As New DataObject

MyData.SetText UserForm1.TextBox1.Text
MyData.PutInClipboard

End If