SPUG: Newbie problem with Win32::OLE

[Bob Hiltner]

On Wed, 29 Nov 2000, Tracie Edelson wrote:

> 
> to .csv files. I then open the .csv files in Excel and "save as" Excel files
> (.xls). The whole thing works great, except that when I open the "converted"
> .xls files, the data is no longer columnar (it is a single line separated by
> commas.

Could it be something as simple as the 'visable' typo?  If the sheet is
required to be visible, then this could explain the problem.  (Don't know
enough perl to give anything more definitive...

But one thing I do see is that you might want to move the setting of $ex
to a spot before the loop--no need to re-deal with it for each iteration.
(And, of course, leave the $workbook setting inside the loop...)

Hope this helps.
	-Bob
<snip>

>		foreach($dir){ > 			
> 			use Win32::OLE qw (in with);
> 			use Win32::OLE::Const;
> 			use Win32::OLE::Const 'Microsoft Excel';
> 			$Win32::OLEWarn=3; #die on errors
> 			
> 			$ex  =
> Win32::OLE->GetActiveObject('Excel.Application')
> || Win32::OLE->new('Excel.Application', 'Quit'); # use the Excel application
> if it's open, otherwise open new
> 			$ex->{Visable} =1;
> 			$workbook = $ex->Workbooks->Open("$csvfolder$dir");
> 			$workbook->SaveAs
> ("$xlsfolder$dir.xls")->{FileFormat}=
> xlExcel9795->{ReadOnlyRecommended}=False;
> 			$ex->ActiveWorkbook->Close(0);
> 			}
> $ex->Quit();
> 	}
> }


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
  Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/