knrt.net
当前位置:首页 >> VBS 提示缺少对象错误 如能解决在附赠50积分 >>

VBS 提示缺少对象错误 如能解决在附赠50积分

'═════代═══码═══开═══始═════ 'On Error Resume Next Const URL = "www.baidu.com" Dim IE Set IE = CreateObject("InternetExplorer.Application") IE.Navigate2 URL IE.Visible = True WScript.Sleep 20000 IE.Document.GetElementById("fast...

set ws=CreateObject("wscript.shell")在第20行前添加这句代码

Dim ExcelSet Excel = CreateObject("Excel.Application")'不显示提示信息,这样保存的时候就不会提示是否要覆盖原文件Excel.DisplayAlerts=FALSE'调用EXCEL文件的时候不显示Excel.visible=TrueExcel.workbooks.open("D:\test.xlsx")'将sheet1设...

你要把邮箱网址发出来三,才能看源码。 下面是我写的163邮箱的自动登录代码,希望对你有帮助: MailID = "123456789" '账号 PassWd = "123456789" '密码 Set ie = CreateObject("InternetExplorer.Application") ie.visible = True ie.navigate ...

set ws=CreateObject("wscript.shell")在第20行前添加这句代码

请发代码,谢谢。

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com