Win::OLE excel function run twice

[Jason Chen]

I have an excel macro in file c:\temp\test1.xls as this:

Public Function test1(str As String)
Debug.Print "the string is: " & str
End Function

I run the macro through perl like this:

use Win32::OLE;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application');
my $Book = $Excel->Workbooks->Open("C:\\temp\\test1.xls");
$Excel->Run('Test1("kabc")');

Here is Result:

here is kabc
here is kabc

The problem is the test1 function is run TWICE!!!

I am using Windows 2000 and ActivateState Perl 5.6.

Help!

 

[Brian Helterline]

I have an excel macro in file c:\temp\test1.xls as this:

Public Function test1(str As String)
Debug.Print "the string is: " & str
End Function

I run the macro through perl like this:

use Win32::OLE;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application');
my $Book = $Excel->Workbooks->Open("C:\\temp\\test1.xls");
$Excel->Run('Test1("kabc")');

Wrong syntax. See the Excel docs for the Run command.
Arg0 = macro name, Arg1...n = arguments. Try:
$Excel->Run( 'Test1', "kabc");