vba抓取网页数据

办公室里最磨人的取网活儿，不是页数写报告，是取网复制粘贴网页数据。我见过同事对着浏览器F12按了半天，页数最后还是取网一行行手抄。其实VBA早就能干这活儿，页数只是取网大多数人不知道它有多野。

拿抓取网页表格来说，页数核心就三步：发请求、取网收响应、页数拆HTML。取网别被“正则表达式”吓着，页数Excel自带的取网VBA里，用CreateObject("MSXML2.XMLHTTP")发个GET请求，页数网页源码就像快递一样送到你变量里。取网我去年帮财务部抓海关税率表，上百页数据，原来她们要干三天，这段代码跑完不到十分钟。

有人要抬杠了：“网页结构变了怎么办？” 对，这是VBA抓数据的命门。但你想过没有，你手动复制粘贴时，网页结构变了你不也得重新找位置？VBA至少能让你把“找位置”的逻辑写清楚，下次变了你改个循环条件就行。我自己的经验是，抓之前先花十分钟看网页源码，找到数据所在的标签规律，比啥都强。

真正恶心的不是技术，是那些反爬机制。有的网站加了个动态token，你直接GET返回的是一堆JS代码，数据影子都见不着。这时候别硬刚，换个思路——用IE控件模拟浏览器操作，让网页自己加载完再抓。虽然慢点，但稳。我抓某招聘网站的职位信息时就这么干的，设置个5秒延迟，一页页翻，跟真人浏览没区别。

代码写起来其实挺糙的。核心逻辑就这么几行：

Dim http As Object Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send Dim html As String html = http.responseText ' 然后用正则或者字符串截取提取你需要的内容 

看着简单吧？但坑都在细节里。编码问题——有的网站是UTF-8，有的GB2312，你得用ADODB.Stream转码，不然中文全乱。还有cookie，有些网站第一次访问要种cookie，你第二次请求得带上，不然给你返回个登录页。这些坑我全踩过，踩完就记住了。

有人问我：“用Python不更香吗？” 香是香，但得装环境、配依赖，公司电脑不一定让你折腾。Excel人人都有，VBA按个Alt+F11就能写，零成本。再说，抓完数据直接往单元格里一填，连导出都省了。我见过最绝的用法，是有人用VBA定时抓天气数据，然后在Excel里做趋势图，全程无人值守。

最后说句实在话：VBA抓数据这事，上限不高，但下限极低。你不需要成为编程高手，只要会看HTML标签，懂点字符串处理，就能解决80%的重复劳动。剩下的20%，要么换工具，要么换个思路——但大概率，那20%的需求你根本遇不到。

下次再看到网页上密密麻麻的数据，别急着Ctrl+C。先想想，这活儿能不能让Excel自己干。