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 'http://hanyu.iciba.com/pinyin.html'

'等待网页完全加载

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抓取的网页数据应该用什么变量类型存储？答案是如果你既不加类型符号也不使用As命令,那么这个变量将为默认的类型,那就是VBA中的Variant类型。所以vba抓取的网页数据应该用以上一些变量类型存储。

将_页中表的数据输出到excel中。

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

---