VBS Set objIE = CreateObject("InternetExplorer。Application")
VBS objIE。Navigate(" ")
VBS str = ipboardData。GetData("text")
VBS objIE。
Quit
If str="" //如果复制内容为空
//这里加入你的执行的脚本
Else //如果复制内容不为空
//这里加入脚本
EndIf
-------
重新改下判断,刚试了下在EXCEL里复制,如果单元格没数据,str=""还是成立,在记事本里粘贴后是个回车符。
另外把if那里的//注释也都去掉,加了好象有问题。
VBS Set objIE = CreateObject("InternetExplorer。Application")
VBS objIE。Navigate(" ")
VBS str = ipboardData。
GetData("text")
VBS objIE。Quit
If Asc(str)=13
……………………
Else
……………………
EndIf
其实你可以用某些插件，直接对EXCEL数据读取，方便很多。
再就是延迟，能延长的就延长，太短了不稳定，也不差那么一会。
答：详情>>
答：资源间的数据交换和授权认证、安全控制都在这一层控制实现详情>>
答：应该不是的吧详情>>
