如何保存工作簿和处理TITUS（或任何其他文档分类加载项）popup？
我在HP UFT 12中创build了一个脚本，该脚本对CSV文件执行网格数据validation，并将结果保存在带有两个工作表的Excel文件中。
我正在使用Excel，因为它对用户来说更加清晰，因为它允许单元格格式化，比较数据更容易等等。
我的代码在我的机器上工作，但我的客户端安装了TITUS文档分类插件，所以每次运行我的脚本时都会挂起，因为TITUSpopup消息要求用户在保存时对文档进行分类。 该消息不会显示给用户，可能是因为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
我已经在网上search，但到目前为止还没有find与之相关的任何内容。 我确实发现了这个和这个 ，但是他们和TITUS for Outlook有关，在这两个问题中都没有得到妥善的解决。
有谁知道如何解决这个问题，或者可以点我的研究材料来帮助我解决这个问题？
提前致谢。
看起来简单得可笑（我不知道我以前怎么没有想到这个），我设法通过在保存文件之前添加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
我不是一个VBA编码器，但我的朋友正在这个工作
我们find的解决scheme是关于提图斯的行为
当你保存它时，它会要求你分类新的工作簿。 注意新的不是已经保存的工作簿。 所以我们创build了一个空白的工作簿并将其保存（具有所需的分类）
修改代码以获取该工作簿并向其添加数据，并使用另存为来创build所需的文件
它工作顺利，没有任何问题。