先進入deepseek官網：DeepSeek | 深度求索

點擊API開放平臺：

確保余額里有錢:

創建APIkey:

復制到.txt文件中儲存好

---

插入VBA代碼：

Function OptimizeEbayTitle(originalTitle As String) As StringDim Prompt As StringPrompt = "作為專業eBay運營人員，請優化以下標題：[[" & originalTitle & "]]" & vbCrLf & _"要求：" & vbCrLf & _"1. 控制在80個字符以內" & vbCrLf & _"2. 保留核心信息" & vbCrLf & _"3. 直接輸出優化結果，不加額外說明或符號"OptimizeEbayTitle = AskAI(Prompt)' 如果結果包含引號，移除它們OptimizeEbayTitle = Replace(Replace(OptimizeEbayTitle, """", ""), "“", "")
End FunctionFunction AskAI(Prompt As String) As StringDim jsonResponse As StringDim contentStart As LongDim contentEnd As LongDim contentText As String' 獲取API原始響應jsonResponse = DeepSeek_Query(Prompt)' 檢查是否有錯誤If Left(jsonResponse, 5) = "Error" Or Left(jsonResponse, 5) = "HTTP" ThenAskAI = jsonResponse ' 直接返回錯誤信息Exit FunctionEnd If' 嘗試定位content字段contentStart = InStr(1, jsonResponse, """content"":""") + Len("""" & "content" & """:""")If contentStart > Len("""" & "content" & """:""") Then' 查找content結束位置contentEnd = InStr(contentStart, jsonResponse, """")If contentEnd > contentStart Then' 提取內容contentText = Mid(jsonResponse, contentStart, contentEnd - contentStart)' 反轉義特殊字符contentText = Replace(contentText, "\""", """")   ' 雙引號contentText = Replace(contentText, "\n", vbCrLf)  ' 換行符contentText = Replace(contentText, "\\", "\")     ' 反斜杠AskAI = contentTextExit FunctionEnd IfEnd If' 如果無法解析，返回原始JSON的前100字符AskAI = "無法解析響應: " & Left(jsonResponse, 100)
End Function' 原始API調用函數（保持不變）
Function DeepSeek_Query(Prompt As String) As StringDim Http As ObjectDim Url As String, APIKey As StringDim Body As StringAPIKey = "" ' 替換為真實API密鑰Url = "https://api.deepseek.com/v1/chat/completions"Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")On Error GoTo ErrorHandler' 特殊字符轉義處理Dim SafePrompt As StringSafePrompt = Replace(Prompt, """", "\""")SafePrompt = Replace(SafePrompt, vbCrLf, "\n")SafePrompt = Replace(SafePrompt, "\", "\\")Body = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & SafePrompt & """}]}"Http.Open "POST", Url, FalseHttp.setRequestHeader "Content-Type", "application/json"Http.setRequestHeader "Authorization", "Bearer " & APIKeyHttp.send BodyIf Http.Status <> 200 ThenDeepSeek_Query = "HTTP錯誤 " & Http.Status & ": " & Http.statusTextExit FunctionEnd IfDeepSeek_Query = Http.responseTextExit FunctionErrorHandler:DeepSeek_Query = "VBA錯誤: " & Err.Description
End Function

效果展示：