1. Excel VBA 调用 SQL Server 存储过程为什么总返回 -1 行
很多做报表自动化的朋友都遇到过这个场景：Excel 里点一下按钮，把 SQL Server 里算好的结果拉回来填到工作表。用SELECT语句时一切正常，换成EXECUTE dbo.usp_GetScore调用存储过程，RecordCount就变成 -1，循环写不进去，工作表一片空白。这个坑我在做现场投票统计时踩过，排查了大半天才定位到是游标位置的问题。
先把问题说清楚。ADO 的Recordset对象有个CursorLocation属性，默认值是adUseServer（常量 2），表示用数据提供程序或驱动提供的服务端游标。服务端游标对数据变化高度敏感，能看到其他用户对数据源的修改，多用户场景下有优势。但代价是记录集行数不确定，RecordCount可能返回 -1，BOF/EOF判断也可能不准。而adUseClient（常量 3）使用本地游标库提供的客户端游标，功能更完整，RecordCount能拿到真实行数，遍历写入就稳了。
那为什么SELECT没事、存储过程就翻车？因为直接SELECT时 ADO 有时会走另一条取数路径，行数能拿到；而EXECUTE存储过程返回的结果集，在服务端游标下更容易出现行数不可知的情况。解决办法有两个：一是把CursorLocation显式设为adUseClient再Open；二是干脆不遍历，直接用CopyFromRecordset把记录集整块粘到工作表，这个方法不依赖RecordCount。
这篇内容面向的是需要用 Excel 做数据回写、又想把复杂计算放到数据库端的同学。适合谁？做投票统计、绩效汇总、库存对账这类"Excel 当界面、SQL Server 当计算引擎"的岗位。下面我会把连接串、Command 对象、参数绑定、结果回写、错误捕获整条链路拆开讲，代码可以直接复制改改就用。另外，如果你在多个环境（测试库、生产库、不同项目）之间切换连接配置，手动改连接串很容易出错，我会顺带讲一下怎么用统一的 Key 通道来管理这些凭证，避免把密码硬编码在 VBA 里。
核心检索词先明确：Excel 通过 ADO 调用 SQL Server 存储过程，关键在三处——连接字符串、Command 参数绑定、游标与结果回写方式。把这三处配对，整条链路就通了。
2. TaoToken 统一 Key 通道：把连接凭证从 VBA 里挪出去
先说清楚 TaoToken 在这里扮演什么角色。它不是数据库，也不替代 SQL Server，而是一个统一管理 API Key 和访问凭证的通道。你可以在官网 https://taotoken.net/?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 注册后，在控制台里创建和管理 Key，把原本散落在各个 VBA 模块、配置文件里的连接凭证集中起来。对于需要频繁切换数据库环境、或者团队多人共用一套脚本的场景，这能省掉大量"改密码—发文件—再改回来"的来回。
为什么要在讲 ADO 之前先提这个？因为很多人的连接串是这么写的：Provider=sqloledb;Server=192.0.168.1;Database=MyTMP;Uid=sa;Pwd=111111。密码明文躺在 VBA 里，工作簿一发给同事，密码就跟着走了。更麻烦的是，测试库和生产库的地址、账号不同，每次切换都要改代码，改错一个字符就连不上。统一 Key 通道的思路是：VBA 里只保留一个读取凭证的函数，真正的地址和 Key 从外部配置或接口拿，代码本身不含敏感信息。
具体怎么落地？分两步。第一步，在 TaoToken 控制台创建 Key，拿到形如sk-xxxx的凭证，并记录你的服务端点。第二步，在 VBA 里写一个轻量的读取函数，从环境变量或本地配置文件读取，而不是硬编码。下面是一个配置模板，你可以放在工作簿同目录的config.json里（注意：这是本地配置示例，实际凭证请通过控制台管理，不要提交到代码仓库）：
{ "sqlServer": { "provider": "sqloledb", "server": "192.0.168.1", "database": "MyTMP", "uid": "report_user", "pwdFromEnv": "SQL_PWD" }, "taotoken": { "baseUrl": "https://taotoken.net/api", "apiKeyEnv": "TAOTOKEN_API_KEY", "modelId": "your-model-id" } }这里pwdFromEnv和apiKeyEnv存的是环境变量名，不是密码本身。VBA 用Environ("SQL_PWD")去取，这样工作簿里就没有明文了。如果你还想让 Excel 顺带调用模型做数据摘要或异常说明，baseUrl填https://taotoken.net/api，Key 从环境变量读，模型 ID 按控制台里可用的填。三件套——Base URL、Key、Model ID——缺一不可，后面排障章节会专门讲这三个对不上的报错。
需要提醒的是，TaoToken 管的是访问凭证和通道，不改变 SQL Server 本身的账号权限。数据库该给的EXECUTE权限、该建的登录名，还是要在 SQL Server 侧配好。把这两层分清楚，后面配置才不会乱。
控制台入口在这里：https://taotoken.net/console?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= ，Key 管理在 https://taotoken.net/api-keys?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 。接入文档在 https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= ，遇到参数不确定时对着文档核对。
3. 可复制的 VBA 模块与连接配置模板
这一节给完整可跑的代码。先建测试数据，再建存储过程，最后写 VBA。SQL Server 侧建表和存储过程：
IF OBJECT_ID('dbo.MyScore') IS NOT NULL DROP TABLE dbo.MyScore; IF OBJECT_ID('dbo.MyPerson') IS NOT NULL DROP TABLE dbo.MyPerson; GO CREATE TABLE dbo.MyScore(PersonID int, ProjectID int, ProjectScore int); CREATE TABLE dbo.MyPerson(PersonID int, IsExpert int); INSERT INTO dbo.MyScore VALUES (1,1001,90),(1,1002,80),(1,1003,95), (2,1001,85),(2,1002,85),(2,1003,90), (3,1001,100),(3,1002,90),(3,1003,95); INSERT INTO dbo.MyPerson VALUES (1,0),(2,0),(3,1); GO CREATE PROCEDURE dbo.usp_GetScore @MinScore int = 0 AS BEGIN SELECT ProjectID, AVG(ProjectScore) AS ProjectScore FROM dbo.MyScore WHERE ProjectScore >= @MinScore GROUP BY ProjectID; END; GO注意这里我给存储过程加了一个@MinScore参数，用来演示参数绑定。带参调用是很多人卡住的地方——用字符串拼接EXECUTE dbo.usp_GetScore 80能跑，但拼接有注入风险，参数类型也容易错。正确做法是用ADODB.Command对象加Parameters.Append。
VBA 模块完整版如下，包含连接、参数绑定、结果回写和错误捕获：
Option Explicit ' 从环境变量读取密码，避免硬编码 Private Function GetConnString() As String Dim pwd As String pwd = Environ("SQL_PWD") If Len(pwd) = 0 Then Err.Raise vbObjectError + 1001, , "环境变量 SQL_PWD 未设置" End If GetConnString = "Provider=sqloledb;Server=192.0.168.1;" & _ "Database=MyTMP;Uid=report_user;Pwd=" & pwd & ";" End Function Sub CallStoredProcWithParam() Dim cn As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.Recordset Dim prm As ADODB.Parameter Dim ws As Worksheet Dim rowCount As Long Set ws = ThisWorkbook.Worksheets("Sheet1") Set cn = New ADODB.Connection Set cmd = New ADODB.Command Set rs = New ADODB.Recordset On Error GoTo ErrHandler cn.Open GetConnString() If cn.State <> adStateOpen Then MsgBox "数据连接失败", vbOKOnly, "提示" Exit Sub End If ' 清空旧数据并写表头 ws.Cells.ClearContents ws.Range("A1").Value = "参评项目ID" ws.Range("B1").Value = "平均分值" ' 用 Command 对象绑定参数，避免字符串拼接 Set cmd.ActiveConnection = cn cmd.CommandText = "dbo.usp_GetScore" cmd.CommandType = adCmdStoredProc cmd.Parameters.Append cmd.CreateParameter("@MinScore", adInteger, adParamInput, , 80) ' 关键：客户端游标，RecordCount 才准确 rs.CursorLocation = adUseClient Set rs = cmd.Execute If Not (rs.BOF And rs.EOF) Then rowCount = rs.RecordCount ' 方式一：遍历写入 Dim i As Long For i = 2 To rowCount + 1 ws.Cells(i, 1).Value = rs.Fields(0).Value ws.Cells(i, 2).Value = rs.Fields(1).Value rs.MoveNext Next i ' 方式二（更省事）：整块粘贴，注释掉上面循环即可 ' ws.Range("A2").CopyFromRecordset rs Else rowCount = 0 End If MsgBox "写入行数：" & rowCount, vbOKOnly, "执行结果" CleanExit: If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If Exit Sub ErrHandler: MsgBox "错误 " & Err.Number & "：" & Err.Description, vbCritical, "执行失败" Resume CleanExit End Sub几个要点。第一，cmd.CommandType = adCmdStoredProc告诉 ADO 这是存储过程，不要当普通 SQL 解析。第二，CreateParameter的四个关键参数是名称、类型、方向、大小，输入参数大小可省略，但类型要对上，@MinScore是 int 就用adInteger。第三，rs.CursorLocation = adUseClient必须在cmd.Execute之前设，设晚了不生效。第四，CopyFromRecordset那行是备选方案，不依赖RecordCount，数据量大时比逐格写快很多。
引用库别忘了：VBE 里工具—引用，勾选Microsoft ActiveX Data Objects 6.1 Library（或 2.8）。没勾的话ADODB.Connection会报"用户定义类型未定义"。
4. 验证请求与成功结果：行数比对和错误捕获
代码跑通不算完，得验证结果对不对。我习惯做三步验证。
第一步，执行前记录工作表当前已用行数。在ws.Cells.ClearContents之前加一行Dim beforeRows As Long: beforeRows = ws.UsedRange.Rows.Count。执行后再取一次afterRows，弹窗里同时显示"执行前 X 行，执行后 Y 行，写入 Z 行"。这样一眼能看出是不是真的写进去了，而不是被清空后没填。
第二步，对照数据库端的结果。在 SQL Server 里直接跑EXEC dbo.usp_GetScore @MinScore = 80，把返回的 ProjectID 和分值记下来，和 Excel 里的逐行核对。测试数据里 1001、1002、1003 三个项目的平均分应该都能算出来，且都大于等于 80。如果 Excel 里少了一行，多半是RecordCount或循环边界的问题。
第三步，故意制造错误看捕获是否生效。把连接串里的服务器地址改成一个不存在的 IP，执行后应该弹出"错误 -2147467259：[DBNETLIB][ConnectionOpen]..."这类提示，而不是 Excel 直接崩掉。再把@MinScore传成字符串"abc"，应该报类型转换错误。错误能被ErrHandler接住并弹窗，说明整条链路的异常处理是完整的。
成功执行后，Sheet1 应该是 A1 表头、A2 起三行数据，弹窗显示"写入行数：3"。如果弹窗显示 0 但数据库明明有数据，回去检查CursorLocation是不是设在了Execute之后。如果弹窗显示 -1，说明客户端游标没生效，检查引用库版本或改用CopyFromRecordset。
还有一个容易被忽略的点：cmd.Execute返回的Recordset如果存储过程里有SET NOCOUNT ON，行为会更稳定。建议在存储过程开头加上SET NOCOUNT ON;，避免行数计数消息干扰 ADO 对结果集的判断。这个细节在官方文档里不显眼，但实测能减少不少诡异问题。
5. 本篇常见错误排查：401、local proxy failed、reading choices、OAuth
这一节按真实报错来对。虽然 ADO 连 SQL Server 本身不涉及 OAuth，但如果你在同一个工作簿里还调用了模型接口做数据说明，就会碰到下面这些。
401 Unauthorized。出现在调用模型接口时，说明 Key 无效或没带上。检查三件套：Base URL 是不是https://taotoken.net/api，Key 是不是从环境变量正确读出（Environ("TAOTOKEN_API_KEY")返回空就是没设），Model ID 是不是控制台里可用的。三者任一不对都可能 401。注意 Base URL 不要多加路径，也不要漏掉/api。
local proxy failed。这个报错通常出现在本地网络配置或代理设置干扰了请求。检查系统代理设置，确认没有残留的代理配置拦截了到服务端的连接。VBA 里如果用MSXML2.ServerXMLHTTP发请求，可以显式设置setProxy 2, ""来绕过系统代理。数据库连接串里也不要带任何代理相关参数。
reading choices 相关报错。这类错误一般出现在解析接口返回的 JSON 时，返回体里没有预期的choices字段。原因可能是请求体格式不对，或者 Model ID 填错导致服务端返回了错误结构。先用模型对话页面 https://taotoken.net/chat?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 手动发一条消息，确认 Key 和模型可用，再回到 VBA 里对照请求体。
OAuth 相关报错。如果你用的是需要 OAuth 流程的客户端（比如某些编码工具），报错通常指向 token 过期或回调地址不匹配。这类场景建议直接看接入文档 https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 里的对应章节，按文档重新走一遍授权。VBA 里做 OAuth 比较别扭，一般建议把这类调用放到外部脚本，Excel 只负责读写结果。
数据库侧的常见错误单独列一下。ADODB.Connection报"未找到提供程序"，是没装 SQL Server 客户端驱动或 Provider 名写错，sqloledb对应旧版，新版可用MSOLEDBSQL。报"登录失败"，检查 Uid/Pwd 和数据库是否允许 SQL 认证。报"对象名无效"，检查存储过程是否在正确的数据库和 schema 下，调用时写全dbo.usp_GetScore。
排障时建议把On Error GoTo ErrHandler里的Err.Number和Err.Description都打出来，光看描述有时不够，错误号能帮你快速定位是连接层、命令层还是记录集层的问题。
6. 长期编码与 Agent 场景：把凭证管理交给 Coding Plan
如果你只是偶尔跑一次报表，上面的配置够用了。但如果你在持续维护多个 Excel 自动化项目，或者想让 Agent 帮你生成和调试 VBA 代码，凭证散落各处就会变成负担。这时候可以考虑用 Coding Plan 把 Key 和模型调用统一管起来，入口在 https://taotoken.net/coding-plan?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 。
具体怎么配合？把数据库连接凭证和模型 Key 都通过统一通道管理，VBA 里只保留读取逻辑。Agent 帮你改代码时，不需要知道真实密码，只需要知道环境变量名。这样代码可以安全地分享、版本管理，也不会因为换了个数据库就要全文搜索替换密码。
对于 Claude Code 这类编码工具，接入时同样遵循三件套原则：Base URL 填https://taotoken.net/api，Key 从控制台创建，Model ID 按可用列表选。配置写进对应的 settings 文件，不要写死在代码里。这样换环境时只改配置，不动业务逻辑。
回到 Excel ADO 这条链路，最终建议是：连接串从环境变量或统一配置读，存储过程用 Command 对象绑参数，记录集设adUseClient或直接用CopyFromRecordset，错误捕获覆盖连接、执行、回写三段。把这四点做到，Excel 调 SQL Server 存储过程基本不会再翻车。需要看更多接入示例的话，文档页 https://taotoken.net/doc?utm_source=taotoken_aicg_blog_end&utm_medium=csdn&utm_campaign=rewrite&utm_content= 里有分场景的说明，对着改比自己试错快。
