前面我们也介绍过部分网抓实例。包括成语查询，单词翻译，快递单号查询等等内容。

今天再分享一个网页提取数据的示例--天气预报

作者：小林子-Office中国

Excel天气预报操作动画

 Excel天气预报详细VBA代码：               

        Sub btnQuery_Click()

        On Error GoTo Err_Handle:

            Dim strCity As String

            strCity = WorksheetFunction.VLookup([B2], [城市代码表!A:B], 2, 0)

            GetWeather strCity

            Exit Sub

        Err_Handle:

            MsgBox "请选择省份和城市"

        End Sub