MCP Server For Excel Integration

🚀 MCP 服務器模型上下文協議（Model Context Protocol）

這是一個簡單的 MCP 服務器，基於 FastAPI 構建。它能夠處理數值輸入，通過將輸入數值翻倍進行計算，同時支持會話管理和 API 密鑰身份驗證，為數據處理提供了便捷的解決方案。

🚀 快速開始

安裝依賴

pip install -r requirements.txt

啟動服務器

uvicorn main:app --reload

服務器將在 http://localhost:8000 上運行。

✨ 主要特性

• 處理數值輸入列表，將每個值翻倍計算。
• 支持會話管理，可在請求之間維護狀態。
• 提供 API 密鑰身份驗證功能。

📦 安裝指南

1. 安裝所需的依賴項：

pip install -r requirements.txt

2. 啟動服務器：

uvicorn main:app --reload

服務器將在 http://localhost:8000 上運行。

💻 使用示例

API 端點調用

POST /mcp/process

處理一個數值輸入列表，將每個值翻倍。 請求正文：

{
  "inputs": [1.0, 2.0, 3.0]
}

頭信息（可選）：

• session_id：用於在請求之間維護狀態
• api_key：用於身份驗證（演示密鑰："demo_key"） 響應：

{
  "outputs": [2.0, 4.0, 6.0],
  "session_id": "generated-session-id"
}

Excel VBA 集成

您可以使用以下 VBA 代碼從 Excel 調用 MCP 服務器：

Sub CallMCPServer()
    ' 定義輸入範圍
    Dim inputRange As Range
    Set inputRange = Range("A1:A3")
    
    ' 創建 HTTP 請求
    Dim request As Object
    Set request = CreateObject("MSXML2.XMLHTTP")
    
    ' 準備 JSON 數據
    Dim jsonData As String
    jsonData = "{""inputs"": ["
    
    Dim cell As Range
    Dim first As Boolean
    first = True
    
    For Each cell In inputRange
        If Not first Then
            jsonData = jsonData & ", "
        End If
        jsonData = jsonData & cell.Value
        first = False
    Next cell
    
    jsonData = jsonData & "]}"
    
    ' 發送請求
    request.Open "POST", "http://localhost:8000/mcp/process", False
    request.setRequestHeader "Content-Type", "application/json"
    request.send jsonData
    
    ' 處理響應
    If request.Status = 200 Then
        Dim response As Object
        Set response = ParseJson(request.responseText)
        
        ' 顯示輸出
        Dim outputStr As String
        outputStr = "處理後的輸出： " & vbCrLf
        
        Dim i As Integer
        For i = 1 To response.Item("outputs").Count
            outputStr = outputStr & response.Item("outputs").Item(i) & vbCrLf
        Next i
        
        MsgBox outputStr, vbInformation, "MCP 服務器響應"
        
        ' 可選：存儲會話 ID 以備將來使用
        Dim sessionId As String
        sessionId = response.Item("session_id")
    Else
        MsgBox "錯誤：" & request.Status & " - " & request.responseText, vbExclamation
    End If
End Sub

Function ParseJson(jsonString As String) As Object
    ' 這是一個簡化的 JSON 解析器，僅供演示使用
    ' 生產環境請考慮使用專業的 JSON 庫
    Dim ScriptEngine As Object
    Set ScriptEngine = CreateObject("ScriptControl")
    ScriptEngine.Language = "JScript"
    
    Dim JsonCode As String
    JsonCode = "JSON.parse('" & Replace(jsonString, "'", "\'") & "');"
    
    Set ParseJson = ScriptEngine.Eval(JsonCode)
End Function

對於使用 Office 腳本的現代 Excel，您可以使用 JavaScript/TypeScript 和 fetch API 來向 MCP 服務器發出 HTTP 請求。

📚 詳細文檔

注意事項

⚠️ 重要提示

• 服務器包含 CORS 中間件以允許從基於網絡的 Excel 客戶端進行跨域請求。
• 會話狀態存儲在內存中，如果服務器重新啟動將會丟失。
• 在生產環境中，請考慮使用數據庫來存儲會話並使用適當的身份驗證。