vba获取当前网页的信息（vba获取当前网页的信息怎么设置）

今天给各位分享vba获取当前网页的信息的知识，其中也会对vba获取当前网页的信息怎么设置进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、用Excel中的vba获取网页内容填写网页表单
• 2、vba提取网页数据
• 3、Excel 如何用VBA提取网页数据
• 4、vba如何抓取网页上的数据

用Excel中的vba获取网页内容填写网页表单

有些网页写得很复杂，iframe内又套iframe，直接从IE对象获取内层iframe中的元素是获取不到的。需要逐层进去，一层也不可跳过。对于每个iframe，用 f.contentWindow.Document.getElementByid 获取iframe内的子元素。而不是直接从ie.Document去getElementByid。

整个连接起来看是很长的：ie.Document.getElementByid("第一层iframe").contentWindow.Document.getElementByid("第二层ifrem") ......

属性选择器

其中一个iframe的名字是随机生成的，后面的整数每次都不同。可以改成用querySelector函数，用通配符匹配。

End语句。Visual Basic遇到End语句就结束运行。

Trim去除前后空格。Str整数转字符串。Round小数取整。InStr搜索匹配子字符串。

循环语句while wend、while do loop……两种？

vba提取网页数据

下面的代码就可以：

Option Explicit

Sub 批量获取网页内容()

  Dim http, Pols, Arr, i, u

  Set http = CreateObject("Microsoft.XMLHTTP")

  i = 1

  For Each u In Array("url1", "url2")

    http.Open "POST", u, False

    http.send ""

    If http.Status = 200 Then

      Cells(i, 1) = http.responseText

      i = i + 1

    End If

  Next u

  Set http = Nothing

End Sub

url1、url2就是你的网址，有多少写多少，每一个都要一http开头（然后是冒号和两个斜线）的完整地址。

Excel 如何用VBA提取网页数据

1、首先打开Excel 2007工作表，点击想要把数据导入的位置，然后在菜单栏找到第五项'数据“，点击，在“获取外部数据”项下找到“自网站”并点击。

2、这时弹出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。

3、添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和黄色箭头，单击要选择的表旁边的黄色箭头，可以看到点击后黄色箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。

4、弹出来”导入数据“对话框，设置完成点击“确定”。

5、Excel表中显示“正在获取数据……”。

6、数据获取完成，之前选中的网页内容全部导入了Excel工作表里。

vba如何抓取网页上的数据

代码：

Private Sub CommandButton1_Click()

Dim IE As Object

Dim i As Integer

i = 1

'打开网页：创建一个IE对象，然后给一些属性赋值。Visible是可见性，navigate是网页地址

Set IE = CreateObject('internetexplorer.application')

With IE

.Visible = True

.navigate ''

'等待网页完全加载

Do Until .ReadyState = 4

DoEvents

Loop

'拷贝汉字到网页文本框,然后点击转换按钮,并取出转换结果

Do While Sheets('sheet1').Cells(i 1, 1).Value ''

'从IE.Document.all句柄中把页面上要使用的节点找出来。这里的方法是：

.document.all('source').Value 给以source为ID的文本框赋值

.document.all.tags('img')(1).Click 点击图片集合里的第二张图片

.document.all('to').Value 取出以to为ID的文本框内容

.document.all('source').Value = Sheets('sheet1').Cells(i 1, 1).Value

.document.all.tags('img')(1).Click

Do Until .ReadyState = 4

DoEvents

Loop

Sheets('sheet1').Cells(i 1, 2).Value = .document.all('to').Value

i = i 1

Loop

'关闭网页

.quit

End With

End Sub

代码解释：(见注释)

贴士：

1)VBA只能操作IE浏览器，原因就一句话：都是微软家的产品嘛

2)要先引用Micorsoft Internet Controls

关于vba获取当前网页的信息和vba获取当前网页的信息怎么设置的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。