Excel接入DeepSeek，实现自动做表：从手动到自动化的实践指南

在数据驱动的时代，Excel作为最常用的办公工具之一，承载着大量的数据分析和报表制作任务。然而，传统的Excel操作往往依赖手动输入、复制粘贴和公式计算，效率低下且容易出错。随着AI技术的快速发展，DeepSeek等智能工具为Excel带来了全新的自动化能力。

本文将详细介绍如何通过Excel接入DeepSeek API，实现自动化的数据处理和报表生成。无论你是数据分析师、财务人员还是普通办公人员，这篇文章都将帮助你提升工作效率，解放双手。

一、准备工作 

1. 安装必要的工具 

- Excel：确保你使用的Excel版本支持VBA（建议使用Office 365或更高版本）。

- DeepSeek API：注册并获取DeepSeek的API密钥。

目前deepseek官网暂停了api充值服务，硅基流动提供2000万tokens的免费额度

https://cloud.siliconflow.cn/i/euHIGayj

- VBA开发环境：熟悉VBA的基本语法和操作。

2. 数据准备 

- 将需要处理的数据整理到Excel表格中，确保数据格式规范（例如日期、数值、文本等）。

- 如果需要对接外部数据源（如数据库或网络API），提前准备好相关接口文档。

 二、实现步骤 

1. 在Excel中启用VBA 

①. 打开Excel，按下 `Alt + F11` 打开VBA编辑器。

②. 在左侧导航栏中选择“插入” -> “模块”，创建一个新的VBA模块。

2. 编写VBA代码调用DeepSeek API 

以下是一个示例代码，展示了如何通过VBA调用DeepSeek API完成数据处理任务：

```vba 

Sub CallDeepSeekAPI()

    Dim http As Object 

    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")

  

    ' 设置API端点 

    Dim apiUrl As String 

    apiUrl = "https://api.deepseek.com/v1/process_data"

    

    ' 设置请求头 

    http.SetRequestHeader "Content-Type", "application/json"

    http.SetRequestHeader "Authorization", "Bearer your_api_key"

    

    ' 构建请求体 

    Dim requestBody As String 

    requestBody = "{""data"": ["

    requestBody = requestBody & GetExcelData() ' 获取Excel中的数据 

    requestBody = requestBody & "], ""task"": ""generate_report""}"

    

    ' 发送POST请求 

    http.Open "POST", apiUrl, False 

    http.Send requestBody 

    

    ' 检查响应状态 

    If http.Status = 200 Then 

        Dim responseText As String 

        responseText = http.ResponseText 

        

        ' 处理响应数据 

        ProcessResponse responseText 

    Else 

        MsgBox "API调用失败，状态码: " & http.Status 

    End If 

    

    Set http = Nothing 

End Sub 

 

' 获取Excel中的数据 

Function GetExcelData() As String 

    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("数据表")

    

    Dim dataStr As String 

    Dim i As Long, j As Long 

    

    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row 

        dataStr = dataStr & "{"

        For j = 1 To 3 ' 假设前三列是关键数据 

            dataStr = dataStr & """" & ws.Cells(1, j).Value & """" & ": """ & ws.Cells(i, j).Value & """",

        Next j 

        dataStr = Left(dataStr, Len(dataStr) - 1) ' 去掉最后一个逗号 

        dataStr = dataStr & "},"

    Next i 

    

    GetExcelData = Left(dataStr, Len(dataStr) - 1) ' 去掉最后一个逗号 

End Function 

 

' 处理API返回的结果 

Sub ProcessResponse(response As String)

    Dim json As Object 

    Set json = ParseJSON(response)

    

    ' 将结果写入Excel 

    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("结果表")

    

    ws.Cells.ClearContents ' 清空现有内容 

    

    ' 写入表头 

    Dim headers() As Variant 

    headers = Array("日期", "销售额", "增长率")

    For i = 0 To UBound(headers)

        ws.Cells(1, i + 1).Value = headers(i)

    Next i 

    

    ' 写入数据 

    Dim i As Long 

    For i = 0 To json.data.Count - 1 

        ws.Cells(i + 2, 1).Value = json.data(i).date 

        ws.Cells(i + 2, 2).Value = json.data(i).sales 

        ws.Cells(i + 2, 3).Value = json.data(i).growth_rate 

    Next i 

    

    MsgBox "数据处理完成！"

End Sub 

```