excel - 如何保存工作簿并处理 TITUS(或任何其他文档分类插件)弹出窗口？

Question

我正在 HP UFT 12 中创建一个脚本，该脚本对 CSV 文件执行网格数据验证，并将结果保存在包含两个工作表的 Excel 文件中。
我使用 Excel 来完成此任务，因为它对用户来说更加清晰，因为它允许单元格格式设置，更容易比较数据等等。

我的代码在我的机器上运行，但我的客户端安装了 TITUS 文档分类插件，因此每次运行我的脚本时，它都会因 TITUS 弹出消息要求用户在保存时对文档进行分类而挂起。该消息不会向用户显示，可能是因为 objExcel.DisplayAlerts = False，但脚本不会继续执行。

以下是我的代码中与此事相关的部分(出于保密原因，我省略了大部分代码)。

Dim objExcel : Set objExcel = CreateObject("Excel.Application")
Dim objWorkbook : Set objWorkbook = objExcel.Workbooks.Add
objExcel.Visible = False
Dim wsGrid : Set wsGrid = objWorkbook.Worksheets(1)
wsGrid.Name = "Grid Data"
Dim wsExported : Set wsExported = objWorkbook.Worksheets.Add
wsExported.Name = "Exported Data"

' Internal code to perform validation and fill worksheets ...

objExcel.DisplayAlerts = False
objWorkbook.SaveAs "C:\my_folder_path\my_file_name.xls"    ' This is where it hangs in machines where the add-in is installed
objWorkbook.Close
objWorkbook.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

我在网上搜索过，但到目前为止还没有找到任何相关内容。我确实找到了this和 this ，但它们与 TITUS for Outlook 相关，并且问题都没有得到妥善解决。
有谁知道如何解决这个问题，或者可以给我指出一份研究 Material 来帮助我解决这个问题？

提前致谢。

Answer 1

尽管看起来简单得可笑(我不知道我以前怎么没有想到过这一点)，我通过在保存之前添加 objExcel.EnableEvents = False 来解决我的问题文件:

objExcel.DisplayAlerts = False
objExcel.EnableEvents = False   ' this is the problem solver for the matter!
objWorkbook.SaveAs "C:\my_folder_path\my_file_name.xls"
objExcel.EnableEvents = True    ' Not sure if this statement is necessary, though
objWorkbook.Close
objWorkbook.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing