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对象
DataObject
DataObject
这两个功能互为操作。
剪贴板操作就是这么简单两个方法，但是知道了，再使用也是有一定的难度，因为要配合不同的控件对象来进行值的传递操作。
欢迎关注、收藏
---END---