VBA操作剪贴板内容
一、
    '将变量的值或文本内容复制或发送到剪贴板
    '仅对窗体有效，DataObject 是MSFORM子类
    Dim MyData As New DataObject    '声明新DataObject 类
    MyData.SetText "文本内容"       '设定文本，可以将Me.TextBox1.Text作为文本传递
    MyData.PutInClipboard           '送入剪贴板

二、
Function GetClipBoardText()
     '将剪贴板中的文本输出到一变量。
     Dim MyData As DataObject
     Set MyData = New DataObject
     ' 如果剪贴板的数据是文本
     If MyData.GetFormat(1) = True Then
     ' 从剪贴板中获得数据
        MyData.GetFromClipboard
     ' 把数据返回给函数值
        GetClipBoardText = MyData.GetText(1)
     End If
End Function

三、
给单元格赋值
Dim a As New DataObject
a.GetFromClipboard
Range("a1").Value=a.GetText