Excel 自动重新发布错误/自动关闭窗口

Question

我的一位同事有 9 个 Excel 工作簿，用于查询生产服务器、组织数据并输出 .mht 作为生产工人的“仪表板”。

有些是每3分钟查询一次，有些是每小时查询一次。

我们发现了 2 个常见错误。

这个

和这个

它实际上是在出现“无效的 Web 查询”错误之后出现的，并且只有一个“确定”按钮。

这实际上不是一个问题，因为这种情况很少发生，并且只有当读取的文件被锁定时才会发生。

第一个错误仅在目标文件被锁定时保存时发生。我Application.DisplayAlerts = False在每本书的每次保存之前都放置了宏，但它并没有消除顶部错误。

我曾尝试将中间文件放入混乱中但没有任何改善。

今天我尝试了这在 AutoIT 中它可以消除第二个错误，但正如作者所说，每次（我很确定）“键”的组合都会失败。

如果我让它查找 Excel，它就会起作用，但这也会杀死我的工作表。

我可以并且每次都单击“不显示......”，但是当我们将更新推送到这台计算机并重新启动它时，这些错误又会出现，并且所有冲突可能需要几天时间才能显示出来。

我该如何解决这个问题？

Answer 1

测试中可能的解决方案 - 用下面的 If 语句围绕 ActiveWorkbook.Save，并使用另一个子语句暂停。

Sub PUBLISH()
'Call TIME
Application.DisplayAlerts = False

If GetAttr("Z:\CHGME\_Production Scheduling\ADMIN\7 Day WIP.mht") And vbReadOnly Then
    Application.Run "Sheet1.WAITtoPUBLISH"
Else
    ActiveWorkbook.Save
End If
End Sub

`Private Sub WAITtoPUBLISH()    
Application.OnTime Now() + TimeValue("00:00:30"), "PUBLISH"
End Sub

它已经持有了 2 天。我仍然可以在正确的时间打破它，因此“等待关闭”选项可能是长期解决方案。