newperl_wisdom has asked for the wisdom of the Perl Monks concerning the following question:

I am a beginner who is trying to open a .pptx file using perl but running into below error: 
OLE exception from "Microsoft PowerPoint 2010":

PowerPoint could not open the file.

Win32::OLE(0.1709) error 0x80004005: "Unspecified error"
    in METHOD/PROPERTYGET "Open" at openppt.pl line 17

[download]
Code used: 
use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const qw( Microsoft.PowerPoint );
use Win32::OLE::Enum;

$Win32::OLE::Warn = 3;

my $app = get_powerpoint();
$app->{Visible} = 1;

my $presentation = $app->Presentations->Open('strMgrErr.pptx');


sub get_powerpoint {
    my $app;
    eval { $app = Win32::OLE->GetActiveObject('PowerPoint.Application'
+) };
    die "$@\n" if $@;

    unless(defined $app) {
        $app = Win32::OLE->new('PowerPoint.Application',
            sub { $_[0]->Quit }
        ) or die sprintf(
            "Cannot start PowerPoint: '%s'\n", Win32::OLE->LastError
        );
    }
    return $app;
}

[download]
Can someone help me with this please ? Thanks

Replies are listed 'Best First'.
Re: Error while opening .pptx file
by CountZero (Bishop) on Mar 26, 2012 at 19:32 UTC
    Adding some <code> ... </code> tags, it looks like this:
    use strict;
use warnings;
use Win32::OLE;
use Win32::OLE::Const qw( Microsoft.PowerPoint );
use Win32::OLE::Enum;
$Win32::OLE::Warn = 3;
my $app = get_powerpoint();
$app->{Visible} = 1;
my $presentation = $app->Presentations->Open('strMgrErr.pptx');

sub get_powerpoint {
    my $app;
    eval { $app = Win32::OLE->GetActiveObject('PowerPoint.Application'
+) };
    die "$@\n" if $@;
    unless ( defined $app ) {
        $app = Win32::OLE->new( 'PowerPoint.Application', sub { $_[0]-
+>Quit } )
          or die
          sprintf( "Cannot start PowerPoint: '%s'\n", Win32::OLE->Last
+Error );
    }
    return $app;
}

    [download]
    When I run your code I get the same error because --of course-- I do not have the strMgrErr.pptx file on my system.

    Replacing the file-name with a valid path-and-file-name, the code runs as expected.

    CountZero

    A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

    My blog: Imperial Deltronics
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom