在 Open WebUI + Ollama 上运行 DeepSeek-R1-70B 实现调用

### 使用 WPS VBA 调用 DeepSeek-R1-Distill-70B API 进行开发 为了在 WPS 中利用 VBA 接入并调用 DeepSeek-R1-Distill-70B 模型，通常需要借助 HTTP 请求来访问远程部署的 API 服务。假设该模型已经通过 RESTful API 或者 gRPC 提供了对外的服务接口，则可以通过以下方式实现： #### 准备工作 确保已安装最新版本的 WPS Office 并启用了宏功能。 #### 创建模块与声明变量 打开 WPS 表格中的 VBA 编辑器 (Alt+F11)，创建一个新的标准模块，在此模块内定义必要的常量和函数。 ```vba Option Explicit ' 定义API URL以及请求头信息 Const DEEPSEEK_API_URL As String = "https://api.deepseek.example/v1/models/distill-llama-70b:predict" Const CONTENT_TYPE As String = "application/json" Sub CallDeepSeekModel() Dim httpReq As Object Set httpReq = CreateObject("MSXML2.XMLHTTP") ' 构建JSON格式的数据体 Dim jsonData As String jsonData = "{""prompt"": ""你好世界"", ""max_tokens"": 50, ""temperature"": 0.9}" ' 发送POST请求给指定URL地址 With httpReq .Open "POST", DEEPSEEK_API_URL, False .setRequestHeader "Content-Type", CONTENT_TYPE .send jsonData If .Status = 200 Then MsgBox "成功接收响应：" & vbCrLf & .responseText Else MsgBox "发生错误：" & .statusText End If End With End Sub ``` 上述代码片段展示了如何构建一个简单的 POST 请求发送至预设好的 `DEEPSEEK_API_URL` 地址，并附带 JSON 格式的输入参数[^1]。需要注意的是实际应用时应当替换为真实的 API Endpoint 及相应的认证机制（如果有的话），同时调整 payload 的结构以匹配目标 API 所需的具体字段。 此外，考虑到安全性因素，建议开发者仔细阅读官方文档关于 API Key 或 Token 验证部分的内容，确保每次请求都携带有效的身份验证凭证[^2]。