Wie Sie Arbeitsmappe speichern und mit TITUS (oder einem anderen Dokumentklassifikations-Add-In) Popup umgehen?

Question

Ich erstelle ein Skript in HP UFT 12, das die Überprüfung der Rasterdaten anhand einer CSV-Datei durchführt und die Ergebnisse in einer Excel-Datei mit zwei Arbeitsblättern speichert.
Ich benutze Excel für dieses, weil es für den Benutzer viel klarer ist, da es Zellformatierung erlaubt, ist es einfacher, die Daten zu vergleichen und so weiter.

Mein Code funktioniert in meinem Computer, aber mein Client hat TITUS-Dokumentklassifikation-Add-In installiert, so dass jedes Mal, wenn sie mein Skript ausführen, wegen der TITUS-Popup-Meldung hängt, die den Benutzer nach dem Speichern fragt . Die Nachricht wird dem Benutzer wahrscheinlich wegen objExcel.DisplayAlerts = False nicht angezeigt, aber das Skript wird nicht fortgesetzt.

Im Folgenden ist der Teil meines Codes, der mit der Sache zusammenhängt (ich habe den größten Teil des Codes aus Gründen der Vertraulichkeit weggelassen).

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 

Ich habe online gesucht, habe aber bis jetzt noch nichts gefunden. Ich habe gefunden this und this, aber sie sind mit TITUS für Outlook verwandt und in keiner der beiden ist das Problem richtig gelöst.
Weiß jemand, wie man das löst, oder kann mich auf ein Forschungsmaterial verweisen, um mir zu helfen, dieses Problem zu lösen?

Vielen Dank im Voraus.

Answer 1

Wie lächerlich einfach, wie es aussieht (ich weiß nicht, wie ich nicht von dieser vorher gedacht haben), schaffe ich einfach mein Problem zu lösen, indem objExcel.EnableEvents = False Zugabe vor dem Speichern der Datei:

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 

Answer 2

I auf das Verhalten von Titus bin kein VBA-Coder, aber meine Freunde waren auf diesem Arbeits

die Lösung, die wir war

es fordert Sie auf jede neue Arbeitsmappe zu klassifizieren gefunden, wenn u speichern. Beachten Sie, dass es sich nicht um eine bereits gespeicherte Arbeitsmappe handelt. So haben wir eine leere Arbeitsmappe und gespeichert es (mit der erforderlichen Klassifikation)

den Code geändert, dass Arbeitsmappe zu nehmen und Daten genau und mit speichern als die erforderlichen Dateien

es ohne funktioniert reibungslos zu schaffen Probleme.