复制代码 代码如下:

Set objHTML=CreateObject("htmlfile")  'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText

更多文章请关注《万象专栏》