broly

Dim objIE,fso,f
Set objIE = CreateObject("InternetExplorer.Application") 
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(fso.GetFolder(".")&"\1.txt",1)
strCopy = f.ReadLine
f.Close
objIE.Navigate("about:blank") 
objIE.document.parentwindow.clipboardData.SetData "text", strCopy 
objIE.Quit 
复制代码