MCP Server For Excel Integration

🚀 MCP サーバーモデルコンテキストプロトコル（Model Context Protocol）

簡単な MCP サーバーで、FastAPI を使用して構築されています。数値入力を処理し、値を 2 倍にして計算し、セッション管理と API キー認証をサポートしています。

🚀 クイックスタート

この MCP サーバーを使用するには、まず必要な依存関係をインストールし、サーバーを起動する必要があります。

📦 インストール

1. 必要な依存関係をインストールします。

pip install -r requirements.txt

2. サーバーを起動します。

uvicorn main:app --reload

サーバーは http://localhost:8000 で実行されます。

📚 ドキュメント

API エンドポイント

POST /mcp/process

数値入力リストを処理し、各値を 2 倍にします。

リクエストボディ：

{
  "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 統合

Excel から MCP サーバーを呼び出すには、以下の VBA コードを使用できます。

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 ミドルウェアが含まれており、Web ベースの Excel クライアントからのクロスドメインリクエストを許可します。
• セッション状態はメモリに保存されるため、サーバーを再起動すると失われます。
• 本番環境では、セッションをデータベースに保存し、適切な認証を使用することを検討してください。