如果要频繁使用剪贴板,建议将objIE设置为全局变量,避免每次创建objIE时主程序窗口被一再激活的现象。
初始化代码放在Application_VBAStart()还是在Application_Start()请自己试验一下,我的电脑主板坏了暂时没法确认。
DIM objIE
Sub Application_VBAStart()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Visible = False
call Application.SetTimer(1,5*60*1000)End Sub
Sub Application_Start()
End Sub
Sub Application_End()
objIE.Quit
End Sub
Sub Application_Timer(ID)
objIE.document.parentwindow.clipboardData.SetData "text", "Test"
End Sub
[此贴子已经被作者于2009-10-15 22:57:11编辑过]