Re^3: How to extract data from Excel by using Win32 OLE

[davies]

I can't reproduce your problem. The following code works for me:

use strict;
use warnings;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
my $wb = $xl->Workbooks->Add;

for my $nSht (2..$wb->Sheets->{Count}) {
    $wb->Sheets(2)->Delete;
}

my $Sheet = $wb->Sheets(1);
$Sheet->Cells(2,2)->{Value} = 0.898124;
print $Sheet->Cells(2,2)->Value;
$xl->{DisplayAlerts} = 0;
$xl->Quit;

If you can't solve your problem from this, please post your own SSCCE (http://sscce.org/ https://web.archive.org/web/20160926072757/http://sscce.org), otherwise I, at least, will be able to do little more.

Regards,

John Davies