VBA如何对Windows剪切板进行操作

一、设置剪贴板内容
仅对窗体有效，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

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vfj3y733vy7yf732eej.html