Thread SpreadSheet::WriteExcel und SpreadSheet::SimpleExcel
(6 answers)
Opened by bobbie at 2010-08-16 09:56
Sicher besser ein Modul zu verwenden, trotzdem hier "diese" Lösung:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 #!/usr/bin/perl use warnings; use strict; use Win32::OLE::Const 'Microsoft Excel'; my $xlsDatei = 'c:/temp/test.xls'; my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); my $book = $excel->Workbooks->Open("$xlsDatei"); my $sheet = $book->Worksheets("Tabelle3")->Delete; $book->Close; $excel->Quit(); |