in reply to Excel->workbooks->open
hope this helps. keep in mind you will need to alter this to do what you want.use Win32::OLE; # name file my $xlfile = "c:/book1.xls"; # open application my $excel = new Win32::OLE('Excel.Application'); #my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32 +::OLE->new('Excel.Application', 'Quit') or die Win32::OLE->LastError +(); #$excel->{'Visible'} = 0; ## 0 = Not Visible, 1 = Visible # open workbook my $workbook = $excel->Workbooks->Open($xlfile); # add a new workbook #$workbook = $excel->Workbooks->Add; # add new worksheet #$workbook->Worksheets->Add(); # setup active worksheet my $worksheet = $workbook->Worksheets('Sheet1'); # write values #$worksheet->Cells(1,1)->{Value} = "fee"; #$workbook->Worksheets('Sheet1')->Range('A1')->{Value} = 'perl writing + to Excel'; $worksheet->Range("A11")->{Value} = 'testing write'; #print "ERROR:" . Win32::OLE->LastError(); # save, close and quit $workbook->Save(); $excel->ActiveWorkbook->Close(0); $excel->Quit();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Excel->workbooks->open
by Grygonos (Chaplain) on Feb 24, 2004 at 18:10 UTC | |
|
Re: Re: Excel->workbooks->open
by waswas-fng (Curate) on Feb 24, 2004 at 18:05 UTC |