I added use warnings; and moved one of the excel OLE calls out of your for loop... your code comments are oddly placed IMO but that has no effect on behavior ;) 
use strict ;
use warnings;
use OLE;
use Win32::OLE::Const "Microsoft Excel";
my ($excel, $workbook, $sheet, $j, $row, $range, $cell_str, $content, 
+$contentb, , $contentc, $width_found, $id, $test_cell_idg );
my ($worktable_name, $jwk, $jr, $sheets_total, $new_wk); 
# request the number of worktables
print "Enter the number of worktables ";
$sheets_total = <STDIN>;
#___ DEFINE EXCEL
$excel = CreateObject OLE "Excel.Application";
#___ MAKE EXCEL VISIBLE
$excel -> {Visible} = 1;

## I MOVED THIS OUT OF THE FOR LOOP ##
$workbook = $excel    -> Workbooks -> Add;

for($jwk = 1; $jwk <= $sheets_total; $jwk ++) {

#___ ADD NEW WORKBOOK
    
#    $sheet    = $workbook -> Worksheets("Sheet 1");
    if($jwk == 1) {
        $sheet    = $workbook -> Worksheets("Sheet1");
        $sheet                -> Activate;
        
#___ ADD NEW WORKSHEET

    } else {
        $workbook -> Worksheets -> Add({After => $workbook -> Workshee
+ts($workbook -> Worksheets -> {Count})});
        $new_wk = "Sheet" . $jwk;
        print($new_wk);
        $sheet    = $workbook -> Worksheets($new_wk);
        $sheet                -> Activate;
#___ CHANGE WORKSHEET NAME

    }
    $worktable_name = "worktable_name-" . $jwk;
    print "\njwk <$jwk> sheet name <$worktable_name> workbook <$workbo
+ok> sheet <$sheet>\n";
    $sheet -> {Name} = $worktable_name;
    for ($jr = 1; $jr <= 10; $jr++) {
        $range = 'A' . $jr;
        $sheet -> Range($range) -> {Value} = $jr . '-' . $jwk;
    }
}
$excel -> {DisplayAlerts} = 0; # This turns off the "This file already
+ exists" message.
$workbook -> SaveAs ("c:\\n-sheets-test");
$excel    -> Quit;

[download]
-TJ

In reply to Re: Excel - adding & writing to multiple worksheets query by technojosh
in thread Excel - adding & writing to multiple worksheets query by merrymonk

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.