perl - Perl を使用して **既に開いている** Excel ワークブックでマクロを実行する方法

Question

Perl を使用して、既に開いているExcel ワークブック でマクロを実行したいと考えています。

ワークブックを開いてマクロを実行するだけの場合は、次のコードが機能します。

#!C:\Perl\bin\perl.exe    
use strict;
use Win32::OLE;

my $Excel = Win32::OLE->new('Excel.Application') or die;
$Excel->Workbooks->open('M:\Programs\MyExcelFile.xls');
$Excel->run('Book1!ChartData');
$Excel->quit;

しかし、開いているブックを操作するにはどうすればよいでしょうか。

Answer 1

を使用しGetActiveObjectます。ドキュメントから：

Here is a simple Microsoft Excel application.

        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]->Quit;})
                    or die "Oops, cannot start Excel";
        }