网站手机版管理链接,如何在百度做网站推广,小程序制作用华网天下优惠,做网站的为什么那么多骗子硅基流动邀请码#xff1a;1zNe93Cp 邀请链接#xff1a;网页链接 亲测deepseek接入word#xff0c;自由调用对话#xff0c;看截图有兴趣的复用代码#xff08;当然也可以自己向deepseek提问#xff0c;帮助你完成接入#xff0c;但是提问逻辑不一样给出的答案是千差万…硅基流动邀请码1zNe93Cp 邀请链接网页链接 亲测deepseek接入word自由调用对话看截图有兴趣的复用代码当然也可以自己向deepseek提问帮助你完成接入但是提问逻辑不一样给出的答案是千差万别的项目首页 - VBA-JSONVBA中的JSON转换与解析工具:VBA-JSONVBA中的JSON转换与解析工具VBA-JSON 是一个专为 VBAVisual Basic for Applications设计的 JSON 转换和解析工具 - GitCode
建议去硅基流动申请API响应较快速准确稳定 在用户窗体代码模块中添加以下代码
Private Sub btnSubmit_Click()On Error GoTo ErrorHandlerDim apiKey As StringDim apiUrl As StringDim jsonBody As StringDim responseText As String 配置API信息需替换为实际值apiKey sk-f5e25a3127de4e2e928d1800c7820e08apiUrl https://api.deepseek.com/v1/chat/completions 示例URL 构建请求体jsonBody {jsonBody jsonBody model: deepseek-chat,jsonBody jsonBody messages: [{role: user, content: Me.txtQuery.text }]jsonBody jsonBody } 发送请求responseText SendAPIRequest(apiUrl, apiKey, jsonBody) 解析并插入结果InsertFormattedResponse (ParseResponse(responseText))Me.lblStatus.Caption 处理成功Exit SubErrorHandler:Me.lblStatus.Caption 错误: Err.Description
End Sub API请求函数
Private Function SendAPIRequest(url As String, key As String, body As String) As StringDim http As ObjectSet http CreateObject(MSXML2.XMLHTTP)http.Open POST, url, Falsehttp.setRequestHeader Content-Type, application/jsonhttp.setRequestHeader Authorization, Bearer keyhttp.send bodyIf http.Status 200 ThenSendAPIRequest http.responseTextElseErr.Raise vbObjectError 1, , API请求失败: http.Status - http.StatusTextEnd If
End Function JSON响应解析简单实现
Private Function ParseResponse(json As String) As StringDim result As StringDim startPos As LongDim endPos As LongstartPos InStr(json, content:) 10endPos InStr(startPos, json, ,)If startPos 10 And endPos startPos Thenresult Mid(json, startPos, endPos - startPos)result Replace(result, \n, vbCrLf)result Replace(result, \, )ParseResponse resultElseErr.Raise vbObjectError 2, , 响应解析失败End If
End Function 排版输出函数
Private Sub InsertFormattedResponse(text As String)With ActiveDocument.Range.InsertAfter vbCrLf 【DeepSeek响应】 vbCrLf.Font.Bold True.Font.Color RGB(0, 102, 204).InsertAfter text vbCrLf.Font.Bold False.Font.Color RGB(0, 0, 0) 添加分隔线.InsertAfter String(50, ) vbCrLf.Font.Color RGB(169, 169, 169)End With
End Sub
