5

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

该应用程序的作用：QC 检查客户框中的错误，然后通过记下详细信息记录任何发现的错误，然后使用我在互联网上找到的网络查询功能以及解析器类将信息提交到谷歌表单，谷歌表格然后写入谷歌表格，合并后我使用这些信息在谷歌表格/仪表板上显示当前错误率和样本大小。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

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

我还可以尝试什么？

编辑：对于它的价值，平板电脑运行 Microsoft Office 365 - 64 位。而且Windows也是64位版本。

4

0 回答 0