关于WPS中的VBA嵌入deepseek的代码问题

如何将这串代码转换成VBA语言，从而代入到WPS中运行？

这个很简单啊，既然都申请 api 了，肯定在 deepseek 有账号啊直接问 deepseek 即可，以下是 deepseek的回复：
; B, P" G5 o' R' \6 ]
要在 WPS 中接入 DeepSeek 的 API，您可以按照以下步骤操作：
$ s2 h3 r* S0 W2 i: q
### 1. 获取 API 密钥
+ T4 b4 Q  o2 L% I* B首先，您需要在 DeepSeek 官网注册账号并获取 API 密钥。

' o+ A2 c# ?  g/ H9 x" X2 H### 2. 安装 WPS Office
( v5 j5 P4 m! C; N* l确保已安装 WPS Office，并具备 VBA（Visual Basic for Applications）支持。
8 g6 n$ q1 @. p+ U+ q' |2 _
### 3. 打开 VBA 编辑器
$ i+ f- J6 s; Y在 WPS 中，按 `Alt + F11` 打开 VBA 编辑器。
1 W0 ?, i: P% O: u% {" f
% O2 Q6 h" y- P, ]/ }7 l2 U/ _### 4. 创建新模块
; R9 K) m% w$ I' v8 P在 VBA 编辑器中，选择 `Insert > Module` 创建一个新模块。

### 5. 编写 VBA 代码
在新模块中编写代码，调用 DeepSeek 的 API。以下是一个示例代码：

* m3 P9 s6 |" S* ~* A3 @

1. ```vba
   / |$ ?% Z# ]( {. O' S. ^, a
2. Sub CallDeepSeekAPI()
     I5 n2 w3 Q5 M( x. S
3.     Dim http As Object
   # @5 R5 k  K' B+ t8 b5 t
4.     Dim url As String
   5 i5 Q5 }2 s& J, c# S2 P1 q8 L
5.     Dim apiKey As String
   
6.     Dim requestBody As String
   
7.     Dim response As String
   7 c2 E* i% X  T( ^# \6 t/ Q, Q
8.    
   8 w% M! n$ k+ Q8 B1 H. U( d! I
9.     ' 设置 API 地址和密钥
   " U2 V/ G  a3 S( C
10.     url = "https://api.deepseek.com/v1/your_endpoint"
    
11.     apiKey = "your_api_key_here"
    1 j% L9 w9 `8 L& f1 x
12.    
    
13.     ' 创建 HTTP 请求对象
    2 r) Z- G' r9 m$ Q" f3 k
14.     Set http = CreateObject("MSXML2.XMLHTTP")
    
15.    
    % ~6 Y# b3 f$ d' {
16.     ' 设置请求参数
    
17.     requestBody = "{""key1"":""value1"",""key2"":""value2""}"
    ' e7 C9 x5 X: f2 p4 w: s) w
18.    
    $ i! Q3 f3 |) O, x
19.     ' 发送请求
    
20.     http.Open "POST", url, False
    . K; }: O8 v4 d0 I0 f
21.     http.setRequestHeader "Content-Type", "application/json"
    4 y& T/ X: \- m+ o! @# k
22.     http.setRequestHeader "Authorization", "Bearer " & apiKey
    ( I4 K0 A# d) l4 F
23.     http.send requestBody
    * G; C, J3 d" }2 N
24.    
    0 m2 M0 s2 d; j8 Y
25.     ' 获取响应
    
26.     response = http.responseText
    8 x( j* W6 V* e9 N8 R) Z, N3 N7 ?
27.    
    
28.     ' 输出响应
    0 N7 z% g  R8 L6 L1 i% ~
29.     MsgBox response
    
30. End Sub
    
31. ```

复制代码

7 ^6 W, z/ l7 o: ^, C$ |9 [
### 6. 运行代码
% J" F; }$ i. t按 `F5` 运行代码，调用 DeepSeek API 并显示响应。
0 h8 [( G  |- W, ?
' G0 [) V6 e+ _% w: Y4 k2 c# G  ?7 }### 7. 处理响应
根据 API 返回的数据，您可以在 WPS 中进行进一步处理，如将数据写入单元格或生成报告。

### 注意事项
- 确保 API 地址和密钥正确。
8 V! g/ C9 r$ `6 V- 根据 API 文档调整请求参数和数据处理逻辑。
- 如果 API 需要其他认证方式，请相应调整代码。

通过这些步骤，您可以在 WPS 中成功接入 DeepSeek 的 API。

你可以讲图 2 的代码喂给 deepseek，问它这是 curl 调用 deepseek 的 api 的代码， 在 WPS 里怎么来实现？

6 e- \0 Z  E+ r. U) v总掉线不太好用。

1. async function deepSeek(){  
   
2.         const isKeepThink = InputBox("回答结果是否保留DeepSeek的思考过程？", "温馨提示：","否");
   0 a/ V" @6 R: r& A* G
3.     let originalSelection = Selection.Range.Duplicate;  // 保存原始选中的文本         
   
4.     let inputText = Selection.Text.replace(/\s/g,"");//替换非法字符
   
5.     if(!(inputText && inputText.length > 1)) return alert("请选中文字！");
   + w" ?9 j: p& E9 ^; D
6.     alert("在没有出现任务完成窗口之前，请耐心等待..............\n\n请点击确定！");
   0 G1 Q  m% k. [( B/ C
7.     let pro = await fetch("http://localhost:11434/api/chat", {
   
8.             "headers" : {
   
9.                     "content-type" : "application/json; charset = UTF-8",
   
10.                     "authorization": "Bearer " + "apikey"
    
11.             },
    
12.             "body":`{"model": "deepseek-r1:1.5b", "messages": [{"role":"user", "content":"${inputText}"}], "stream": false}`,
    
13.             "method" : "POST"
    
14.     }).then(response => {
    : {+ Z9 N" B( n' {5 g, W
15.                 if (!response.ok) throw new Error('与大模型通讯出现错误');
    
16.                 return response.json();
    8 U4 d1 E* J" S$ m
17.         }).catch(error => alert("出现错误\n" + error));
    
18.     let response = isKeepThink == "否" ? keepThink(pro.message.content) : pro.message.content;
    
19.         Selection.Collapse(wdCollapseEnd)// 取消选中原始文本
    
20.         Selection.TypeParagraph() // 插入新行
    
21.         Selection.TypeText(response)// 将内容插入到选中文字的下一行       
    
22.         originalSelection.Select()// 将光标移回原来选中文本的末尾
    
23.         alert("任务完成！")
    
24. }
    * V) V% t: y5 }1 ~  t. ~5 Y1 z% t
25. 
    2 A# Z( Y9 J7 H% \4 M3 `
26. function Callback(control){
    
27.         deepSeek()
      o9 X4 G! O7 a# ]. G" A& I
28. }
    6 U% J+ {( U5 O# a6 v" I
29. 
    
30. function keepThink(str){
    
31.         const index = str.indexOf(`</think>`);
    
32.         return index == -1 ? str : str.slice(index + 10);
    
33. }

复制代码

- Z0 V3 _8 }* U$ n9 k  B/ y+ S% \
# @7 y6 Y7 c9 a0 ~2 f
- X1 O: o& \" P. C' ~# f前提是先安装好ollama，并拉取好模型,假设密下载的是deepseek r1 1.5b。然后运行-cmd,输入命令：ollama run deepseek - r1:1.5b ,之后等待出现send message出现，再打开附件，按图操作即可。

0 {3 {5 R  }' u9 X4 Z

epiman 发表于 2025-2-10 18:03
- A% D5 D$ \* B: _- D这个很简单啊，既然都申请 api 了，肯定在 deepseek 有账号啊直接问 deepseek 即可，以下是 deepseek的回复 ...

* m" s, M3 Z& A, D4 _
" P; L) U+ B$ ~8 }3 a4 ^  N老大，已经尝试过了，总掉线不太好用

电子葵花 发表于 2025-2-12 08:51
总掉线不太好用。

$ t% p0 \1 @& L总掉线不太好用
确实是这样，DEEPSEEK的API停止收费了

miosinwei 发表于 2025-2-17 09:02
7 a1 c8 Z. u" E! U* T* n+ Y老大，已经尝试过了，总掉线不太好用

用第三方部署的API，腾讯、阿里、百度、字节好像都有。或者用硅基流动，我用的硅基流动，除了全规格的deepseek，还有蒸馏的32b和14b，及免费的7b和8b，见链接
https://www.epiman.cn/home/index.html

epiman 发表于 2025-2-17 13:12
用第三方部署的API，腾讯、阿里、百度、字节好像都有。或者用硅基流动，我用的硅基流动，除了全规格的dee ...

硅基流动注册了，送了14个小时，而且回复很慢

miosinwei 发表于 2025-2-19 08:45
硅基流动注册了，送了14个小时，而且回复很慢

7 e( L+ v; r3 q1 ~$ f( m这个很快
+ K% B/ x! N+ m! J( x! nhttps://www.wenxiaobai.com/chat/200006