perl win32 ole timeout

Question

我使用perl和Win32 :: OLE来自动化一些Excel任务。由于Excel文件太大，因此该过程需要花费相当多的时间才能完成......但在过夜之后，我认为它由于“超时”问题而卡住了。如果我减小文件大小，那就没问题。

无论如何增加超时？

我的代码部分：

# Open the rules file 
my $xlBook = $xlApp->Workbooks->Open("$file"); 
my $xlSheet = $xlBook->Worksheets(1); 

#Replace FALSE -> 0 
$xlSheet->Cells->Replace ({ What => "FALSE", Replacement => "0" }); 
#Replace TRUE -> 1 
$xlSheet->Cells->Replace ({ What => "TRUE", Replacement => "1" }); 

Answer 1

改变自动化超时的方法是调用CoRegisterMessageFilter注册您IMessageFilter实现来处理COM调用，也就是说，call OLEUIBusy to display a server busy dialog。

我不认为Win32 :: OLE实现了这一点，你可以尝试在进程内的COM服务器中包装CoRegisterMessageFilter代码，并在服务器中注册消息过滤器。