Dim objws Set objHTML=CreateObject("xmlfile") ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text") Set objws=WScript.CreateObject("wscript.shell") objws.SendKeys ClipboardText 我这样写在指定位置输出的是“=”符号 肿么破?【泪汪汪】
Dim objws, Set objHTML=CreateObject("xmlfile") ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text") Set objws=WScript.CreateObject("wscript.shell") objws.SendKeys %(v)