清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim strCopy2
Set objIE = CreateObject("InternetExplorer.Application")
strCopy2=objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit