复制代码 代码如下:
Set objHTML=CreateObject("htmlfile") 'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText
Set objHTML=CreateObject("htmlfile") 'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText