VBA编程，如何复制剪贴板内容到工作表中，一般人都不会

VBA也提供了和系统之间的数据交换，如剪贴板内容复制。这种操作通常是一个隐秘的过程，但是，在些重要的应用中，是很有用的。

本文内容将介绍如何利用对象DataObject进行剪贴板数据复制操作。

剪贴板可以理解为操作系统中一个临时数据存放的空间，根据存放数据类型不同，其内部数据类型也不相同，有文字，数字，表格，图片等等。

我们用到一个对象：DataObject

DataObject 可包括一段针对剪贴板文本格式的文本和一段针对每种其他文本格式（如自定义格式和用户定义的格式）的文本。

定义DataObject对象

Dim xData As New DataObject

按钮代码

Private Sub CommandButton1_Click()
If Me.TextBox1.Text = "" Then Exit Sub
xData.Clear
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Me.TextBox1.TextLength
Me.TextBox1.Copy'复制文本框内容
xData.GetFromClipboard '从剪贴板复制数据到数据对象
Me.TextBox2.Value = xData.GetText(1)’把数据对象内容复制到文本框2中
xData.SetText "", 1'设置数据对象为空值
xData.PutInClipboard '从数据对象移动到剪贴板
End Sub

重点：

xData.GetFromClipboard '从剪贴板复制数据到数据对象

xData.PutInClipboard '从数据对象移动到剪贴板

xData.SetText "", 1'设置数据对象值

xObj = xData.GetText(1)’把数据对象内容复制到xObj对象

很显然关于剪贴板的方法，就是GetFromClipboard，将数据从剪贴板复制到 DataObject。

方法PutInClipboard，是将数据从 DataObject 移动到剪贴板。

这两个功能互为操作。

剪贴板操作就是这么简单两个方法，但是知道了，再使用也是有一定的难度，因为要配合不同的控件对象来进行值的传递操作。

欢迎关注、收藏

---END---