场景：从企业微信/飞书/钉钉API拉取审批记录或考勤数据
在企业日常自动化中，“拉数据”永远是最基础、也是最容易卡壳的一环。尤其是对接企业微信、飞书、钉钉这类办公平台的API时，很多同学都会遇到同一个问题：
“Python我写得挺顺，为什么到了Excel VBA里就各种报错？”
这一讲我们不只讲“怎么调接口”，而是把 Python 和 VBA 两种技术路线放在一起对照讲，让你真正理解：
REST API 的本质是什么
requests 为什么“看起来那么简单”
VBA 里 XMLHTTP / WinHttpRequest 到底在干什么
同样一个接口，两种语言在实现上的差异与取舍
文中我会穿插真实可用的代码示例（Python + VBA），并且补充一些实战中非常容易踩坑的细节，尽量做到“拿过去就能改着用”。
一、先搞懂：我们在“调接口”时到底在干什么？
无论你是 Python 还是 VBA，本质都一样：
构造一个 HTTP 请求
URL（接口地址）
Method（GET / POST）
Headers（Content-Type、Authorization 等）
Body（POST 时的 JSON 参数）
通过网络发给对方服务器
接收返回结果
状态码（200 / 400 / 401 / 500…）
Response Body（通常是 JSON）
解析返回的数据
JSON → Python dict / VBA Dictionary 或 JSON 解析库
写入业务系统
也就是说，requests 和 XMLHTTP 只是在“发请求 + 收响应”这一步不同，后面的逻辑完全一致。
二、场景设定：拉取审批记录（以企业微信为例）
为了便于对照，我们用一个非常典型的真实场景：
从企业微信「审批」应用中，拉取指定时间段内的请假审批记录，并写入 Excel。
企业微信官方接口文档中，对应接口为：
POST https://qyapi.weixin.qq.com/cgi-bin/oa/getapprovalinfo?access_token=ACCESS_TOKEN
1. 前置条件（非常重要）
无论 Python 还是 VBA，下面这几步都绕不开：
创建企业微信自建应用
拿到 corpid、corpsecret
通过 gettoken接口换取 access_token
给应用授权「审批」相关权限
明确审批模板 ID（在管理后台查看）
access_token 有效期通常为 7200 秒，生产环境一定要缓存，不要每次请求都重新获取。
三、Python 实现：requests + JSON 解析
1. 安装依赖
2. 获取 access_token
import requestsCORP_ID = "你的corpid"CORP_SECRET = "你的corpsecret"def get_access_token(): url = f"https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={CORP_ID}&corpsecret={CORP_SECRET}" resp = requests.get(url) resp.raise_for_status() data = resp.json() if data["errcode"] != 0: raise Exception(f"获取token失败：{data}") return data["access_token"]
为什么这里看起来这么简单？
因为 requests.get()帮你封装了：
TCP 连接
HTTP 协议序列化
编码处理
JSON 自动解码（resp.json()）
你看到的是“业务代码”，不是“底层通信代码”。
3. 拉取审批记录
import timedef get_approval_info(access_token): url = f"https://qyapi.weixin.qq.com/cgi-bin/oa/getapprovalinfo?access_token={access_token}" payload = { "starttime": int(time.mktime(time.strptime("2025-01-01 00:00:00", "%Y-%m-%d%H:%M:%S"))), "endtime": int(time.mktime(time.strptime("2025-01-31 23:59:59", "%Y-%m-%d%H:%M:%S"))), "cursor": 0, "size": 100, "filters": [ { "key": "template_id", "value": "审批模板ID" } ] } resp = requests.post(url, json=payload) resp.raise_for_status() return resp.json()
几个实战细节：
企业微信时间戳是秒级，不是毫秒
json=payload会自动设置 Content-Type: application/json
raise_for_status()可以在 HTTP 非 200 时直接抛异常，方便调试
4. 写入 Excel（openpyxl 示例）
from openpyxl import Workbookdef write_to_excel(data): wb = Workbook() ws = wb.active ws.append(["审批单号", "申请人", "审批状态", "提交时间"]) for sp_no in data.get("sp_no_list", []): ws.append([sp_no, "", "", ""]) wb.save("approval.xlsx")
到这一步，Python 的完整链路已经跑通：鉴权 → 请求 → 解析 → 落地。
四、VBA 实现：WinHttpRequest + JSON 解析
很多人对 VBA 的印象是“老旧”“难用”，但在Excel 内嵌自动化这个场景里，它依然不可替代。
1. 引用 WinHttpRequest
在 VBA 编辑器中：
工具 → 引用 → Microsoft WinHTTP Services, version 5.1
如果你不想引用，也可以用后期绑定：
CreateObject("WinHttp.WinHttpRequest.5.1")
2. 获取 access_token（VBA）
Function GetAccessToken() As String Dim http As Object Set http = CreateObject("WinHttp.WinHttpRequest.5.1") Dim corpid As String Dim corpsecret As String corpid = "你的corpid" corpsecret = "你的corpsecret" Dim url As String url = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid=" & corpid & "&corpsecret=" & corpsecret http.Open "GET", url, False http.Send If http.Status = 200 Then Dim json As Object Set json = JsonConverter.ParseJson(http.ResponseText) If json("errcode") = 0 Then GetAccessToken = json("access_token") Else Err.Raise vbObjectError + 1000, , "获取token失败：" & json("errmsg") End If Else Err.Raise vbObjectError + 1001, , "HTTP错误：" & http.Status End IfEnd Function
注意点：
VBA 没有内置 JSON 解析器
推荐使用开源模块：VBA-JSON (JsonConverter.bas)
下载后导入工程即可使用
http.ResponseText返回的是字符串，需要手动解析
3. 拉取审批记录（VBA）
Sub GetApprovalInfo() Dim token As String token = GetAccessToken Dim http As Object Set http = CreateObject("WinHttp.WinHttpRequest.5.1") Dim url As String url = "https://qyapi.weixin.qq.com/cgi-bin/oa/getapprovalinfo?access_token=" & token Dim payload As String payload = "{""starttime"":1735660800,""endtime"":1706742399,""cursor"":0,""size"":100,""filters"":[{""key"":""template_id"",""value"":""审批模板ID""}]}" http.Open "POST", url, False http.SetRequestHeader "Content-Type", "application/json" http.Send payload If http.Status = 200 Then Dim json As Object Set json = JsonConverter.ParseJson(http.ResponseText) Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) ws.Cells.Clear ws.Range("A1").Value = "审批单号" Dim i As Long i = 2 Dim item As Variant For Each item In json("sp_no_list") ws.Cells(i, 1).Value = item i = i + 1 Next item Else MsgBox "请求失败：" & http.Status End IfEnd Sub
五、Python vs VBA：对照要点拆解
对比维度 | Python (requests) | VBA (WinHttpRequest) |
|---|
HTTP 调用 | requests.get/post
| Open → Send
|
JSON 支持 | 内置 json() | 需引入 JSON 解析模块 |
可读性 | 极高 | 一般 |
错误处理 | try/except+ HTTPStatus
| Err.Raise+ Status
|
生态 | 丰富（pandas/openpyxl） | 局限但紧贴 Excel |
部署 | 需 Python 环境 | Office 自带，零部署 |
一句话总结：
Python 胜在开发效率和生态；VBA 胜在“就在 Excel 里，不用折腾环境”。
六、实战经验：企业微信 / 飞书 / 钉钉 的共性问题
Token 管理
本地文件
Excel 隐藏表
SQLite / Access
分页拉取
企业微信：cursor
飞书：page_token
钉钉：next_cursor
务必循环拉全量
时间戳差异
企业微信 / 钉钉：秒
飞书：毫秒
写个统一转换函数，避免低级错误
HTTPS & TLS
VBA 老版本可能不支持 TLS1.2
必要时需打补丁或使用 WinHttp而非 XMLHTTP60
权限问题
接口返回 48002 / 60011，多半是应用没授权
七、什么时候选 Python，什么时候用 VBA？
✅ 选 Python：
数据量大
需要清洗、分析、入库
定时任务（cron / Windows Task Scheduler）
多系统联动（API → DB → BI）
✅ 选 VBA：
报表直接在 Excel 里
使用者不懂 Python
财务/行政同事只需点按钮
不希望额外安装环境
实际项目中，两者往往是互补关系：
Python 负责“拉 & 洗”，VBA 负责“展示 & 填报”。
八、小结
这一讲我们从真实企业场景出发，完整演示了：
如何用 Python + requests 拉取企业微信审批数据
如何用 VBA + WinHttpRequest 实现同一功能
两者在语法、结构、工程化上的本质差异
企业微信 / 飞书 / 钉钉 API 的常见坑位
理解这些差异后，你就不会再纠结“哪个更好”，而是能根据业务场景、使用对象和维护成本做出合理选择。
九、随堂测验（5道选择题）
企业微信 API 的时间戳单位是：
A. 毫秒
B. 秒
C. 微秒
D. 纳秒
Python requests 中，发送 JSON 参数的正确方式是：
A. data=json.dumps(payload)
B. json=payload
C. body=payload
D. params=payload
VBA 中，若不引用 WinHTTP，可使用哪种方式创建对象？
A. New WinHttpRequest
B. CreateObject("WinHttp.WinHttpRequest.5.1")
C. Server.CreateObject
D. New MSXML2.XMLHTTP
企业微信获取 access_token 的接口返回字段是：
A. token
B. access_token
C. auth_token
D. t
以下关于 VBA 调用 API 的说法正确的是：
A. VBA 内置 JSON 解析器
B. WinHttpRequest 支持 HTTPS
C. VBA 无法发送 POST 请求
D. XMLHTTP60 一定比 WinHttpRequest 新
十、参考答案
B
B
B
B
B
10个月宝宝每天需要喝多少奶粉？
