小编SL8*_*L8R的帖子

因此，我一直在为我的公司做大量的 excel vba（不是真正高级的东西）“开发”，并且遇到了一个我似乎无法解决的问题。

该应用程序的作用：QC 检查客户框中的错误，然后通过记下详细信息记录任何发现的错误，然后使用我在互联网上找到的 Web 查询功能以及解析器类将信息提交到 google 表单，谷歌表单然后写入谷歌表格，在其中合并我使用这些信息在谷歌表格/仪表板上显示当前错误率和样本大小。QC 使用 Microsoft Windows Surface Pro 平板电脑在 Excel 中运行应用程序并提交他们发现的错误。

问题：在非常随机的时候，一些平板电脑在尝试提交对谷歌表单的响应时会出现错误（错误出现在网络查询模块中），我不知道是什么原因造成的。有时是所有平板电脑都有问题，有时只是部分平板电脑出现问题，通常通过重新启动应用程序或等待几分钟即可解决问题。

我的猜测：

• 网络中断/掉线
• 网络防火墙相关问题

我尝试过的解决方案：

• 与网络管理员联系，了解是否有任何限制会导致此类问题。那里没有运气
• 在谷歌上搜索潜在的类似问题，但似乎并不是很多人都这样做，这对我来说在编码/开发领域很奇怪。
• 我正在尝试的当前解决方案，我将更新这是否有效。到目前为止，一切都很好。

我使用的网络查询代码：

Public Sub CreateWebQuery(Destination As Range, url As String, Optional WebSelectionType As XlWebSelectionType = xlEntirePage, Optional SaveQuery As Boolean, Optional PlainText As Boolean)
    
    With Destination.Parent.QueryTables.Add(Connection:="URL;" & url, Destination:=Destination)
        .Name = "WebQuery"
        .RefreshStyle = xlOverwriteCells
        .WebSelectionType = WebSelectionType
        .PreserveFormatting = PlainText
       .BackgroundQuery = False
       .Refresh
        If Not SaveQuery Then .Delete
    End With

End Sub

尝试提交响应时出现的错误（随机发生） …