怎样用vba控制excel中的剪贴板

发布网友 发布时间：2022-04-22 23:04

我来回答

共1个回答

热心网友 时间：2022-05-31 15:41

Copy、GetFromClipboard、GetText 方法和 DataObject 对象示例

下例演示从文本框到剪贴板，从剪贴板到 DataObject 以及从 DataObject 到另一个文本框的数据移动。GetFromClipboard 方法把数据从剪贴板传输到 DataObject。该例还使用了 Copy 和 GetText 方法。

若要使用该示例，请将示例代码复制到某窗体的声明变量部分。请确保该窗体包含：

名为 TextBox1 和 TextBox2 的两个文本框控件。

名为 CommandButton1 的命令按钮。
Dim MyData as DataObject

Private Sub CommandButton1_Click()
'在把文本复制到剪切板之前，需要选定一段文本
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Copy

MyData.GetFromClipboard
TextBox2.Text = MyData.GetText(1)
End Sub

Private Sub UserForm_Initialize()
Set MyData = New DataObject
TextBox1.Text = "Move this data to the " _
& "Clipboard, to a DataObject, then to "
& "TextBox2!"
End Sub