如何使用Perl和Excel OLE將工作表複製到新的或現有的工作簿？

Question

我已經嘗試使用下面的Perl代碼，但工作表不會複製（也不會移動），也不會返回錯誤消息。預先感謝您的想法。

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use OLE; 
use Win32::OLE::Const 'Microsoft Excel'; 

my $Excel = CreateObject OLE "Excel.Application"; 
my $Book2 = $Excel->Workbooks->Add(); 
my $Book3 = $Excel->Workbooks->Open("C:\\temp\\test.xlsm"); 
my $Sheet3 = $Book3->Worksheets(1); 
$Sheet3->Select; 
$Sheet3->Move("Before" => $Book2->Worksheets(1)); 
$Book3->Close(0); 
$Book2->SaveAs({Filename =>"C:\\temp\\new.xlsm",FileFormat => xlOpenXMLWorkbookMacroEnabled}); 
$Book2->Close(); 
$Excel -> Quit(); 

Answer 1

我找到了一個解決方法這裏使用複製/粘貼在一個大的單元格區域。這種方法可能通過編程識別活動單元格範圍而不是硬編碼來改進，這也可能導致在不同版本的Excel之間出現問題。

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use Win32::OLE qw/in with/; 
use Win32::OLE::Const 'Microsoft Excel'; 
$Win32::OLE::Warn = 3; # Die on errors in Excel 

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') 
    || Win32::OLE->new('Excel.Application', 'Quit'); 
$Excel -> {"Visible"} = 0; 
$Excel -> {"DisplayAlerts"} = 0; 
my $Book2 = $Excel->Workbooks->Add(); 
my $Book3 = $Excel->Workbooks->Open("C:\\temp\\test.xlsm"); 
$Book3->Worksheets(1)->Range("A:AM")->Copy; 
$Book2->Worksheets(1)->Range("A:AM")->PasteSpecial; 
$Book3->Close(0); 
$Book2->SaveAs({Filename =>"C:\\temp\\new.xlsm",FileFormat => xlOpenXMLWorkbookMacroEnabled}); 
$Book2->Close(); 
$Excel->Quit(); 

Answer 2

如果您需要在Excel中的錯誤死了，你需要將相關標誌設置爲3（與Office 2000工程）：

$Win32::OLE::Warn = 3; # Die on errors in Excel 

一個更根本的問題可能與做你的Office版本。底層的OLE體系結構自我（相信）Office 2007以來一直在進行徹底改革。當我與Office 2007一起開發的腳本拒絕與Office 2000一起運行時，我遇到了此問題。

我可以建議的最佳做法在VBA模式下使用Excel的（相當混亂的）OLE瀏覽器，通過點擊鍵來操作。

---

的'你好，世界' 的Perl + OLE + Excel中（用Excel 2000工作）：

use strict; 
use warnings; 
use Win32::OLE qw/in with/; 
use Win32::OLE::Const 'Microsoft Excel'; 
$Win32::OLE::Warn = 3; # Die on errors in Excel 

my $excel = Win32::OLE->GetActiveObject('Excel.Application') 
    || Win32::OLE->new('Excel.Application', 'Quit'); 
my $workbook = $excel->Workbooks->Add || warn "Couldn't add a workbook"; 
my $sheet = $excel->Worksheets->Add || warn "Couldn't add a worksheet"; 
$sheet->{Name} = "Hello World";