G'day viji234,

Welcome to the monastery.

"But my current code writes all the rows and columns of 2 sheets. my code is"

Except that's not your code, is it? Apart from a couple of apparently pointless print statements near the start of the code, you've just copied the SYNOPSIS of the Spreadsheet::XLSX documentation. That code does what the documentation is explaining: it's not going to magically morph into different code to suit your current requirements.

You should be able to see from the code, that you can identify which sheet you're dealing with, using the value of $sheet->{Name}.

Instead of looping through all columns, just get the ones you want from each row, e.g. 

my @wanted_cols = (9, 10, 11, 21);
my @wanted_cells = @{$sheet->{Cells}[$row]}[@wanted_cols];

[download]

The @array[@indices] construct is called an array slice. See perldata: Slices for details.

To write your data to a CSV file, use Text::CSV.

-- Ken

In reply to Re: Create CSV file from xlsx file by kcott
in thread Create CSV file from xlsx file by viji234

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.