#!/usr/bin/perl
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;

my $filename = 'c:\\book_with_macros.xls';
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32:
+:OLE->new('Excel.Application', 'Quit');  

my $Book = $Excel->Workbooks->Open( $filename );
$Excel->Run("MYMACRONAMEHERE");
$Book->Close;
[download]

I patched the following together from the examples in the Activestate documentation in the section "Using OLE with Perl", under the subheading "How do I run a Macro in Microsoft Excel". It works quite well.

This will only work if you run it on a Windows system with Excel installed

    
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $filename = 'book1.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( $filename ); # open the file
$Excel->Run("macro_name");
$Book->Save; #optional - save any changes made by the macro
$Book->Close;
[download]

Hi,

Take a look at this excellent tutorial Using Win32::OLE and Excel - Tips and Tricks

One further question executing Excel-Macros:

The Excel-Macro I like to start opens a pop-up-window asking for data (the password). And it displays some buttons to select the functionality. Will I be able to execute it in a "batch"-mode from perl? E.g. by adding some parameters to the

$Excel->Run("macro_name");
[download]

Thanks

Rata