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

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

这个很简单啊，既然都申请 api 了，肯定在 deepseek 有账号啊直接问 deepseek 即可，以下是 deepseek的回复：
) h! [% G1 w& ], [* i* o
) V9 Z2 w1 g3 U* S2 R) O1 M要在 WPS 中接入 DeepSeek 的 API，您可以按照以下步骤操作：

, H/ J7 B6 k/ D: b$ F. a### 1. 获取 API 密钥
' E8 B# s1 v7 ~# I5 V1 |首先，您需要在 DeepSeek 官网注册账号并获取 API 密钥。
9 j6 h7 H* `" x, _. n
9 E: H. ?  F2 |. @3 C! _### 2. 安装 WPS Office
确保已安装 WPS Office，并具备 VBA（Visual Basic for Applications）支持。
& M- V( L8 Q4 w. \: k
### 3. 打开 VBA 编辑器
在 WPS 中，按 `Alt + F11` 打开 VBA 编辑器。

### 4. 创建新模块
在 VBA 编辑器中，选择 `Insert > Module` 创建一个新模块。

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

1. ```vba
   0 Z( J9 x8 t4 S/ v) e7 q
2. Sub CallDeepSeekAPI()
   4 z7 |5 w7 t4 e9 ~5 }5 u
3.     Dim http As Object
   ; Q8 G& ]/ u* k, O) j4 k
4.     Dim url As String
   
5.     Dim apiKey As String
   
6.     Dim requestBody As String
   , [6 A* M5 H& J0 f/ T  Z* C
7.     Dim response As String
   
8.    
   
9.     ' 设置 API 地址和密钥
   
10.     url = "https://api.deepseek.com/v1/your_endpoint"
    , _8 b# k; P, y/ U2 t
11.     apiKey = "your_api_key_here"
    
12.    
    
13.     ' 创建 HTTP 请求对象
    ) ^, p! M+ x% _; A
14.     Set http = CreateObject("MSXML2.XMLHTTP")
    1 v6 X% @) o2 k( r+ m" D
15.    
    
16.     ' 设置请求参数
    4 H; M# d2 j2 ~1 I+ `9 V. ~2 |9 w
17.     requestBody = "{""key1"":""value1"",""key2"":""value2""}"
    
18.    
    $ i# n# M  S3 k$ i7 N
19.     ' 发送请求
    
20.     http.Open "POST", url, False
    
21.     http.setRequestHeader "Content-Type", "application/json"
    
22.     http.setRequestHeader "Authorization", "Bearer " & apiKey
    # y5 k( c. ^5 V5 U% ]; A' i4 r% `
23.     http.send requestBody
    - N+ n( b5 _- k& n- L
24.    
    4 x6 h+ D8 U; p
25.     ' 获取响应
    8 k# k3 t% y  V5 ~2 A
26.     response = http.responseText
    
27.    
    
28.     ' 输出响应
    
29.     MsgBox response
    ; `) O1 Q: ]  u  o9 f
30. End Sub
    
31. ```

复制代码

. p4 f1 n( X! z0 D# Y
### 6. 运行代码
按 `F5` 运行代码，调用 DeepSeek API 并显示响应。

### 7. 处理响应
, W( O0 Q2 j6 P1 O* x+ E根据 API 返回的数据，您可以在 WPS 中进行进一步处理，如将数据写入单元格或生成报告。
8 y) ]# f" t+ [- [' ~. N
### 注意事项
* w- ]. E- s+ ~/ Q- ]& }, \- 确保 API 地址和密钥正确。
- 根据 API 文档调整请求参数和数据处理逻辑。
- 如果 API 需要其他认证方式，请相应调整代码。

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

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

% g) c  R; R: @
总掉线不太好用。
, x3 T% l- F# U2 a" [) P- W9 Q

! S8 g7 p& ?, ~9 q' Q/ @) O

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

复制代码

3 r, [: L8 _, B' x1 v' {, p. U) v

, \( `3 T; m1 M1 o前提是先安装好ollama，并拉取好模型,假设密下载的是deepseek r1 1.5b。然后运行-cmd,输入命令：ollama run deepseek - r1:1.5b ,之后等待出现send message出现，再打开附件，按图操作即可。

epiman 发表于 2025-2-10 18:03
" k7 Z3 x8 g% i( ?& i& t这个很简单啊，既然都申请 api 了，肯定在 deepseek 有账号啊直接问 deepseek 即可，以下是 deepseek的回复 ...

老大，已经尝试过了，总掉线不太好用

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

总掉线不太好用
确实是这样，DEEPSEEK的API停止收费了

miosinwei 发表于 2025-2-17 09:02
老大，已经尝试过了，总掉线不太好用

用第三方部署的API，腾讯、阿里、百度、字节好像都有。或者用硅基流动，我用的硅基流动，除了全规格的deepseek，还有蒸馏的32b和14b，及免费的7b和8b，见链接
$ ?, T; f  \0 C9 W7 `2 p/ P% l2 Zhttps://www.epiman.cn/home/index.html

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

! ]' D8 r5 h! c9 ~硅基流动注册了，送了14个小时，而且回复很慢

miosinwei 发表于 2025-2-19 08:45
+ L% O5 r0 A* a  g硅基流动注册了，送了14个小时，而且回复很慢

这个很快
https://www.wenxiaobai.com/chat/200006