問(wèn)題：

最近老婆讓我給上二年級(jí)的孩子做一份生字拼音表（帶聲調(diào)），這樣孩子每天就可以讀拼音默寫(xiě)詞語(yǔ)，也就不需要家長(zhǎng)陪在身邊朗讀了。

錄入字母容易解決，但標(biāo)聲調(diào)就不好辦了。我百度了一下，金山詞霸提供了一個(gè)網(wǎng)頁(yè)工具，輸入漢字可轉(zhuǎn)換成帶聲調(diào)的拼音。那問(wèn)題來(lái)了：現(xiàn)在有八百多個(gè)生詞，如果要每一個(gè)都這樣查一次然后拷貝粘貼出來(lái)，簡(jiǎn)直太麻煩了。

方案：

既然拼音也是要錄入到Excel的，那么用VBA來(lái)操作網(wǎng)頁(yè)，把輸入漢字-->點(diǎn)擊“開(kāi)始轉(zhuǎn)換”按鈕-->拷貝轉(zhuǎn)換結(jié)果-->粘貼到Excel等步驟自動(dòng)化，就省事多了。

代碼：

Private Sub CommandButton1_Click()

    Dim IE As Object

    Dim i As Integer

    i = 1

    '打開(kāi)網(wǎng)頁(yè)：創(chuàng)建一個(gè)IE對(duì)象，然后給一些屬性賦值。Visible是可見(jiàn)性，navigate是網(wǎng)頁(yè)地址

    Set IE = CreateObject('internetexplorer.application')

    With IE

        .Visible = True

        .navigate 'http://hanyu.iciba.com/pinyin.html'

     '等待網(wǎng)頁(yè)完全加載   

        Do Until .ReadyState = 4

            DoEvents

        Loop

        '拷貝漢字到網(wǎng)頁(yè)文本框,然后點(diǎn)擊轉(zhuǎn)換按鈕,并取出轉(zhuǎn)換結(jié)果

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

      '從IE.Document.all句柄中把頁(yè)面上要使用的節(jié)點(diǎn)找出來(lái)。這里的方法是：

       .document.all('source').Value 給以source為ID的文本框賦值

       .document.all.tags('img')(1).Click  點(diǎn)擊圖片集合里的第二張圖片

       .document.all('to').Value  取出以to為ID的文本框內(nèi)容

            .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

        '關(guān)閉網(wǎng)頁(yè)

        .quit

    End With

End Sub

代碼解釋?zhuān)?/strong>（見(jiàn)注釋?zhuān)?/span>

貼士：

1）VBA只能操作IE瀏覽器，原因就一句話：都是微軟家的產(chǎn)品嘛

2）要先引用Micorsoft Internet Controls

拓展：

你的工作中是否遇到過(guò)需要抓取網(wǎng)頁(yè)數(shù)據(jù)的任務(wù)呢。。。？