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