Alfred Vahau wrote:
> The Spreadsheet::ParseExcel will dump all the worksheets one after the
> other into one big file. Is this your observation.
> The first line of the file will be the first row of worksheet 1. From
> this the last column can be extracted which contains the
> file name.
>
> If the user still insists on the files retained as excel files, then
> Spreadsheet::WriteExcel can write the results back as excel files.
>
> In Windows, Win32::OLE is used to do this kind of work.
>
> HTH,
>
> Alfred,
Thanks, Alfred, but the email from David Van Ginneken concerning an
email on PerlMonks got me the first line and also out of the file in quick
order.
I do appreciate the followup though.
Wags ;)
>
>
>
> Kevin Old wrote:
>
>> On Tue, 29 Mar 2005 13:30:57 -0800, Wagner, David --- Senior
>> Programmer Analyst --- WGO <[EMAIL PROTECTED]> wrote:
>>
>>
>>> I have a directory which has output reports in them. The
>>> big problem is that they are just a bunch of letters and numbers
>>> like 2781424330fdac47c916.xls. So the user would like a more
>>> recognizable file name.
>>>
>>> This is to run on Solaris w/ Perl 5.8.3. I have tried the
>>> following two modules on my PC using ActiveState 5.8.3
>>> under XP: Spreadsheet::ParseExcel ( 15 minutes plus to read 4 files
>>> size 4 to 12 meg) and Spreadsheet::ParseExcel::Simple ( 4 minutes
>>> for the same files as ParseExcel )
>>>
>>> I am running my first test on Solaris using Simple and the
>>> first file took 5 minutes to process. Still have 3 to do.
>>>
>>> Any suggestions on what to do? The key for naming the file
>>> is ( believe it or not ) the last column of the first row on
>>> worksheet 1.
>>>
>>> Any questions and/or problems, please let me know.
>>>
>>>
>>
>> Hey Wags,
>>
>> I'm kind of confused on what you're asking help for. Are you asking
>> for help on getting the last column of the first row on worksheet 1
>> for each file you have?
>>
>> If so, my suggestion is to use File::Find to parse down through your
>> directory and use a regex to identify the files you want, then use
>> Spreadsheet::ParseExcel to read the first worksheet and get the
>> first row.
>>
>> Use the code on
>> http://search.cpan.org/~kwitknr/Spreadsheet-ParseExcel-0.2603/ParseExcel.pm
>> in the Synopsis section and play around with the for loops to have
>> it break after the first row.
>>
>> Here's a great column on using File::Find.
>> http://www.stonehenge.com/merlyn/LinuxMag/col45.html
>>
>> Sorry for the lack of syntax, but if you need some later, let me
>> know!
>>
>> Hope this helps,
>> Kevin
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
