Excel vba 网抓天气预报

前面我们也介绍过部分网抓实例。包括成语查询，单词翻译，快递单号查询等等内容。今天再分享一个网页提取数据的示例--天气预报
作者：小林子-Office中国Excel天气预报操作动画

1482827668110441.gif

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 SubErr_Handle:  MsgBox "请选择省份和城市"End Sub