用excel自动填写网页并提交

 时间:2024-10-12 12:37:07

1、打开office excel 2003,依次点击菜单栏:【工具】--->【宏】--->【Visual Basic 编辑器】。

用excel自动填写网页并提交

2、打开Visual Basic 编辑窗口如下图。

用excel自动填写网页并提交

3、下面,我们使用excel自动打开百度代码如下:Sub Main() Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate "http://www.baidu.com"End Sub点击运行按钮,自动打开百度首页

用excel自动填写网页并提交

4、然后在百度搜索框内填写搜索的内容“你好,百度”,代码如下:ie.Document.getElementById("kw").value="hellowworld" 。其中kw为百度搜索框的ID,至于如何获得网页中元素的ID号,请自己百度一下。

用excel自动填写网页并提交

5、最后我们得到百度的【百度一下】按钮的ID号,并点击按钮:ie.Document.getElementById("su").click,运行后结果如下图:

用excel自动填写网页并提交

6、整段代码如下:Sub Main()//主程序入口 Dim ie As Object//定义的浏览器变量 Set ie = CreateObject("InternetExplorer.Application")//创建浏览器变量 ie.Visible = True//显示浏览器 ie.Navigate "http://www.baidu.com"//打开百度首页 While ie.ReadyState <> 4 Or ie.Busy = True//检测浏览器是否完全打开 DoEvents//假如浏览器还没有完全打开,则等待 Wend ie.Document.getElementById("kw").Value = "hellow world"//在浏览器//中填写搜索内容:“hellow world” ie.Document.getElementById("su").Click//点击搜索按钮End Sub

  • execl窗体如何重新获得焦点呢?
  • 如何在Excel VBA中设置GetOpenFilename的参数
  • Excel VBA如何获取数组索引的范围
  • 如何利用VBA代码自动隐藏表格特定行
  • Excel利用VBA制作进度条加载效果
  • 热门搜索
    爱家乡手抄报 安全教育手抄报一等奖 法制宣传手抄报 劳动节手抄报的文字 说好普通话手抄报 手抄报边框简笔画 厉行节约反对浪费手抄报内容 爱牙日手抄报 父亲节手抄报 小学生读书手抄报