剪贴板操作

VBA操作剪贴板内容

标签：it分类：VB、VBA

VBA操作剪贴板内容

一、

'将变量的值或文本内容复制或发送到剪贴板

'仅对窗体有效，DataObject是MSFORM子类

DimMyDataAsNewDataObject'声明新DataObject类

t"文本内容"'设定文本，可以将

作为文本传递

lipboard'送入剪贴板

二、

FunctionGetClipBoardText()

'将剪贴板中的文本输出到一变量。

DimMyDataAsDataObject

SetMyData=NewDataObject

'如果剪贴板的数据是文本

mat(1)=TrueThen

'从剪贴板中获得数据

mClipboard

'把数据返回给函数值

GetClipBoardText=t(1)

EndIf

EndFunction

三、

给单元格赋值

DimaAsNewDataObject

mClipboard

Range("a1").Value=t