运行Stored Process后SAS Session无法自动关闭的问题咨询

问题回顾 #

使用VBA通过SAS Add-In For Microsoft Office运行存储过程时，每次执行会创建2个SAS会话，执行结束后会话不会自动关闭，重复运行会持续新增会话，触发公司3个并发会话的限制。已尝试ABORT宏、rc=stpsrv_session('delete')、删除工作表存储过程等方法，未解决问题。

可行解决方案 #

1. 将存储过程设置为无状态模式 #

SAS存储过程默认可能是**有状态（Stateful）**模式，这种模式会保留会话以支持后续交互。改为无状态模式后，存储过程执行完毕会立即销毁会话：

• 打开SAS EG，找到目标存储过程，右键选择「属性」
• 在「执行」选项卡中，将「执行模式」改为无状态（Stateless）
• 保存修改后重新发布存储过程

2. VBA中显式控制会话生命周期 #

不要依赖InsertStoredProcess自动创建会话，而是手动创建会话对象，执行完成后主动断开：

Dim sasAddIn As SASExcelAddIn
Dim sasSession As SASession

' 初始化Add-In对象
Set sasAddIn = New SASExcelAddIn
' 创建指定服务器的会话（False表示非交互式会话）
Set sasSession = sasAddIn.NewServer("SASApp", False)

' 运行存储过程，指定使用手动创建的会话
sasAddIn.InsertStoredProcess "/路径/到/你的存储过程", ActiveSheet.Range("A1"), , sasSession

' 执行完成后显式断开并释放会话
sasSession.Disconnect
Set sasSession = Nothing
Set sasAddIn = Nothing

3. 调整存储过程内的会话结束命令 #

将stpsrv_session('delete')替换为stpsrv_session('END')，后者会直接通知SAS服务终止当前会话，在存储过程的最后添加：

%let rc = %sysfunc(stpsrv_session(END));

4. 检查存储过程代码是否额外创建会话 #

查看存储过程内部是否有rsubmit、signon等会创建新会话的命令，如果有，需要在代码末尾显式关闭：

rsubmit;
/* 你的远程执行代码 */
endrsubmit;
signoff; /* 如果通过signon创建了远程会话，需用signoff关闭 */

5. 配置SAS Add-In的空闲会话超时 #

在Excel中设置SAS Add-In自动关闭空闲会话：

• 点击Excel菜单栏的「SAS」选项卡，选择「选项」
• 进入「服务器」选项卡，找到「空闲会话超时」，设置合适的时间（比如10分钟）
• 勾选「自动断开空闲会话」，保存设置

内容的提问来源于stack exchange，提问作者Gabriel Negrini