Question

我有一个应将数据传输到Excel文件的webApp（谷歌表格）。

在脚本中，我当前正在使用ContentService.createTextOutput（）返回某些内容，请参见this链接

在VBA中，我尝试使用不同的代码，例如

Sub Test()
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", "https://script.google.com/macros/s/AKfycbxU2ZL39IdtMzQXu0OLJZz3shSOx1JNTCbe1_SCxunIimLJVqY/exec", False
WinHttpReq.Send

If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.ResponseBody
    oStream.SaveToFile "c:\test.txt", 2
    oStream.Close
End If
End Sub

由于运行时错误70，我也尝试使用WinHttp.WinHttpRequest.5.1，但遇到其他错误（我认为是超时）

我可以使用this链接下载整个文件而没有问题，我看到ContentService重定向了浏览器页面（直接下载没有重定向），但是我真的不知道如何使用VBA处理它（而且我没有找到有用的Google搜索信息

感谢帮助

Answer 1

我现在找到了InternetExplorer的解决方案。经过数小时的尝试和提出问题后的10分钟，正在运行的应用程序有效

=IF(AND(D2<>"set_path",D2<>"stop"),COUNTIF($D$1:D2,"is_null")+COUNTIF($D$1:D2,"equals"),IF(D2="set_path",IFERROR(CHAR(COUNTIF($D$2:D2,"set_path")+64),""),IF(D2="stop","stop","")))

将Google脚本结果下载到Excel VBA

1 个答案: