Function GetClipBoardText() '把剪贴板的文本传送到变量中
Dim Clip_Txt As DataObject
Set Clip_Txt =new DataObject !!!本句出错 不能使用 为什么???
If Clip_Txt.GetFormat(1) = True Then
Clip_Txt.GetFromClipboard
GetClipBoardText = Clip_Txt.GetText(1)
End If
End Function
Dim Clip_Txt As DataObject
Set Clip_Txt =new DataObject !!!本句出错 不能使用 为什么???
If Clip_Txt.GetFormat(1) = True Then
Clip_Txt.GetFromClipboard
GetClipBoardText = Clip_Txt.GetText(1)
End If
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货