vba 抓取php网页,用VBA操作网页并抓取数据

问题：

最近老婆让我给上二年级的孩子做一份生字拼音表(带声调)，这样孩子每天就可以读拼音默写词语，也就不需要家长陪在身边朗读了。

录入字母容易解决，但标声调就不好办了。我百度了一下，金山词霸提供了一个网页工具，输入汉字可转换成带声调的拼音。那问题来了：现在有八百多个生词，如果要每一个都这样查一次然后拷贝粘贴出来，简直太麻烦了。

方案：

既然拼音也是要录入到Excel的，那么用VBA来操作网页，把输入汉字-->点击“开始转换”按钮-->拷贝转换结果-->粘贴到Excel等步骤自动化，就省事多了。

代码：

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