Much of your frustration might come from the reason that you're not really telling us what your problems are. From your vague description, I guess that it's not Win32::OLE which is giving you problems but the calls you're trying to make to Excel. A simple excel win32::ole macro recorder site:www.perlmonks.org would have shown you Use The Macro Recorder, Luke (Re: Using Win32::OLE and Excel - Tips and Tricks) among many other good solutions, but I'm confident that this easy solution already occurred to you and I'm misinterpreting your post.

Maybe you can clarify your post so that I can understand it better?

       use Win32::OLE;
        # use existing instance if Excel is already running
        eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
        die "Excel not installed" if $@;
        unless (defined $ex) {
            $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Qui
+t;})
                    or die "Oops, cannot start Excel";
        }
        # get a new workbook
        $book = $ex->Workbooks->Add;
        # write to a particular cell
        $sheet = $book->Worksheets(1);
        $sheet->Cells(1,1)->{Value} = "foo";
        # write a 2 rows by 3 columns range
        $sheet->Range("A8:C9")->{Value} = [[ undef, 'Xyzzy', 'Plugh' ]
+,
                                           [ 42,    'Perl',  3.1415  ]
+];
        # print "XyzzyPerl"
        $array = $sheet->Range("A8:C9")->{Value};
        for (@$array) {
            for (@$_) {
                print defined($_) ? "$_|" : "<undef>|";
            }
            print "\n";
        }
        # save and exit
        $book->SaveAs( 'test.xls' );
        undef $book;
        undef $ex;
[download]

Workbooks.Open Filename:="C:\Proyecto\csv\T3683.csv.xls"
    Rows("1:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbov
+e
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "Report"
    Range("C7").Select
[download]

use Win32::OLE;
use constant xlDown => -4121;
use constant xlFormatFromLeftOrAbove => 0;

my $_app_object = (Win32::OLE->GetActiveObject('Excel.Application') ||
                   Win32::OLE->new('Excel.Application'));

$_app_object->Workbooks->Open({Filename => 'C:\\Proyecto\\csv\\T3683.c
+sv.xls'});
$_app_object->Rows('1:10')->Select();
$_app_object->Selection->Insert({Shift => xlDown, CopyOrigin => xlForm
+atFromLeftOrAbove});
$_app_object->Range('B6')->Select();
$_app_object->ActiveCell->{FormulaR1C1} = 'Report';
$_app_object->Range('C7')->Select();
[download]