Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^3: Excel > Data > Text to Columns (Win32::OLE)

by davies (Vicar)
on Apr 29, 2014 at 14:39 UTC ( #1084337=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Excel > Data > Text to Columns (Win32::OLE)
in thread Excel > Data > Text to Columns (Win32::OLE)

use strict; use warnings; use Win32::OLE; my $xl = Win32::OLE->new('Excel.Application'); $xl->{Visible} = 1; my $wb = $xl->Workbooks->Add; for my $nSht (2..$wb->Sheets->{Count}) { $wb->Sheets(2)->Delete; } my $sht = $wb->Sheets(1); $sht->Cells(1, 1)->{Value}="Filesystem 1024-blocks Used A +vailable Capacity Mounted on"; $sht->Cells(2, 1)->{Value}="/abc/defghi/dskvg00-root 1015704 5465 +16 416760 57% /"; $sht->Cells(3, 1)->{Value}="/abc/defghi/dskvg00-var 2539312 105462 +0 1353636 44% /var"; $sht->Cells(4, 1)->{Value}="/abc/defghi/dskvg00-tmp 1552232 4139 +2 1432208 3% /tmp"; $sht->Cells(5, 1)->{Value}="/abc/defghi/dskvg00-home 126931 56 +93 114685 5% /home"; $sht->Cells(6, 1)->{Value}="/abc/defghi/dskvg00-usr 2539312 124096 +0 1167280 52% /usr"; $sht->Cells(7, 1)->{Value}="/abc/defghi/dskvg00-usrlocal 126931 + 7146 113232 6% /usr/local"; $sht->Range("A1:A" . $sht->UsedRange->Rows->{Count})->TextToColumns({ Destination => $sht->Range("A1"), Space => 1, ConsecutiveDelimiter => 1, }); $sht->UsedRange->Columns->AutoFit;

Obviously this isn't the way to import the data, but you seem to have solved that already. There are three main changes:

Line 22 calculates the number of rows automatically. There are more complicated ways. Avoid them.

The ConsecutiveDelimiter line treats all spaces as a single delimiter.

The AutoFit line is purely cosmetic.

I can't work out quickly how to stop "Mounted on" being split into 2 columns. If there's anything that can be done about that at generation time, it might help. Or you might insert some code to remove & replace the space. Or live with it. Or something else.

Regards,

John Davies


Comment on Re^3: Excel > Data > Text to Columns (Win32::OLE)
Select or Download Code
Re^4: Excel > Data > Text to Columns (Win32::OLE)
by Bascule (Initiate) on Apr 29, 2014 at 15:01 UTC
    This is really helpful - many thanks. I've not yet been able to find any information on TextToColumns. Can you recommend any documentation on Win32::OLE, methods, etc?
Reaped: Re^4: Excel > Data > Text to Columns (Win32::OLE)
by NodeReaper (Curate) on Apr 30, 2014 at 07:16 UTC
Reaped: Re^4: Excel > Data > Text to Columns (Win32::OLE)
by NodeReaper (Curate) on Apr 30, 2014 at 07:18 UTC
Reaped: Re^4: Excel > Data > Text to Columns (Win32::OLE)
by NodeReaper (Curate) on Apr 30, 2014 at 07:19 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1084337]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-12-28 03:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (178 votes), past polls