in reply to Win32::OLE Excel Adding worksheet after last current sheet

You are so close!

To use named parameters, you need to use a hash reference. This line uses a reference to an anonymous hash:

my $Sheet2 = $Book->Worksheets->Add( {after =>
           $Book->Worksheets($Book->Worksheets->{count})} );

[download]

Replies are listed 'Best First'.
Re: Re: Win32::OLE Excel Adding worksheet after last current sheet
by Anonymous Monk on Nov 05, 2003 at 21:30 UTC
    Perfect!!!! Thanks alot!
[reply]
Re^2: Win32::OLE Excel Adding worksheet after last current sheet
by Anonymous Monk on Apr 30, 2009 at 10:14 UTC
    Hi, I am tring to run macro through the perl script but always getting following error The macro 'SetIO' cannot be found. Win32::OLE(0.1707) error 0x800a03ec in METHOD/PROPERTYGET "Run" at agilent.pm line 20 the value is Vcore Please check the code below, please help me to solve this problem I am new to perl and VB/Excel #use strict; use warnings; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; my $filename = "E:/DM360/Power/DM365_Test.xls"; my $Excel = Win32::OLE->GetActiveObject('Excel.Application')||Win32::OLE->new('Excel.Application', 'Quit'); # use the Excel application i #f it's open, otherwise open new my $Book = $Excel->Workbooks->Open( "E:\\DM360\\Power\\Measure.xls" ); # open the file my $Sheet = $Book->Worksheets(Readings); $Sheet->Activate(); printf ("the value is %s \n",$Sheet->Cells(1,3)->{'Value'}); $Excel->Run("SetIO"); $Excel->Run("CommandButton1_Click"); #$Excel->Run("Temp"); $Book->Save; #optional - save any changes made by the macro $Book->Close;
[reply]
      $Excel->Run("SetIO");

      [download]

      This tries to run a macro SetIO. Excel says it cannot find this macro. So maybe you want to check that a macro of this name exists. There is nothing that we can do from here to help you further.

[reply]
[d/l]
[select]
Re^2: Win32::OLE Excel Adding worksheet after last current sheet
by dipak28 (Initiate) on Apr 30, 2009 at 10:25 UTC
    Hi, I am tring to run macro through the perl script but always getting following error - The macro 'SetIO' cannot be found. Win32::OLE(0.1707) error 0x800a03ec in METHOD/PROPERTYGET "Run" at agilent.pm line 20 the value is Vcore Please check the code below, please help me to solve this problem I am new to perl and VB/Excel #use strict; use warnings; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Excel'; $Win32::OLE::Warn = 3; my $filename = "E:/DM360/Power/DM365_Test.xls"; my $Excel = Win32::OLE->GetActiveObject('Excel.Application')||Win32::OLE->new('Excel.Application', 'Quit'); # use the Excel application i #f it's open, otherwise open new my $Book = $Excel->Workbooks->Open( "E:\\DM360\\Power\\Measure.xls" ); # open the file my $Sheet = $Book->Worksheets(Readings); $Sheet->Activate(); printf ("the value is %s \n",$Sheet->Cells(1,3)->{'Value'}); $Excel->Run("SetIO"); $Excel->Run("CommandButton1_Click"); #$Excel->Run("Temp"); $Book->Save; #optional - save any changes made by the macro $Book->Close;
[reply]

In Section Seekers of Perl Wisdom