use Win32::OLE::Const; use Win32::OLE::Const 'Microsoft Excel'; my $Excel = Win32::OLE->new("Excel.Application" , sub { $_[0]->Quit } +) or die Win32::OLE::LastError; $Excel->{Visible} = 1; my $Book = $Excel->Workbooks->Open("C:\\Documents and Settings\\clong\ +\Desktop\\Convert to Text file\\Quarantined_IMSIHLR2_20070611_Complet +ed1.xls") my $Sheet = $Book->Worksheets(Quarantined_IMSIHLR2_20070611_Completed1 +); $Excel->{DisplayAlerts} = 0; # avoid being prompted $Sheet->SaveAs( { FileName => "C:\\Documents and Settings\\clong\\Desk +top\\Convert to Text file\\test.txt" , FileFormat => xlText } +) or die Win32::OLE::LastError; $Book->Close(); $Excel->Quit;
In reply to how to convert excel file to text file? by poolboi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |