I found a problem with this some time ago Win 8.1 Perl 5.16.1
poj#!perl use strict; use Win32::OLE::Const 'Microsoft Excel'; Win32::OLE->Option(Warn => 3); my $ex = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); my $wb = $ex->Workbooks->Open('c:/temp/Book1.xls') ; my $ws = $wb->sheets(1); my $cell = $ws->Cells(7,2); # b7 $cell->Borders(7)->{LineStyle} = xlNone; #left # save and exit # this works $wb->SaveAs( 'c:\\temp\\changedborder.xls' ); # this gives error #$wb->SaveAs( 'c:/temp/changedborder.xls' ); #C:\//' cannot be accessed. The file may be corrupted, located on a se +rver #that is not responding, or read-only. #in32::OLE(0.1709) error 0x800a03ec # in METHOD/PROPERTYGET "SaveAs" at borders.pl line 16.
In reply to Re^7: perl tk widget will not copy files
by poj
in thread perl tk widget will not copy files
by john.tm
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |