Sub CallDeepSeekAPI() Dim http As Object Dim url As String Dim apiKey As String Dim response As String url = "https://api.deepseek.com/your-endpoint" apiKey = "your_api_key_here" Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.setRequestHeader "Authorization", "Bearer " & apiKey http.send response = http.responseText ' 处理response,如解析JSON并写入Excel End Sub