Opening Excel (OLE) with passwords

[rr_kreitzer]

I am looking to parse a Password Protected Excel file. The password is known, and I can perform a similar function with VB, How can I do it with Perl?

Other Posts on this site show how to Open an Excel Object in with Perl using Win32 and required modules.
my $Book = $Excel->Workbooks->O­pen("test.xls");
Can you pass more than just filename during OLE open???

VB way to open an Excel Object
Xls = Workbooks.Open("test.xls", , , , "abc123")
where the empty variables represent data for Updating Links, Read Only, and Format.

Full VB Variables List
Workbooks.Open(TargetDoc, [UpdateLinks], [ReadOnly], Format], [Password], [WriteResPassword], IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru])
Similar for Word
thisDoc = Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible)
where PasswordDocument is the password required to open the document

Has anyone tried this before or can I get some direction please.

Thanks

[sheep]

Hello,

Your answer is right in your question :)

my $Book = Excel->Workbooks->Open(
{  FileName => 'test.xls',
   Password => 'abc123' } ) or die "Cant open excel file: $!";

All attributes you pasted for Workbooks.Open are valid for opening excel file with Win32::OLE. You just use them as hash keys and values.

In 318680 node I posted 2 links that might be useful.

Hope that helps.
-sheep

[xiopher]

do you know if you can do autofit from perl? I tried it eariler and it didn't translate very well from vb.

[cacharbe]

[neuroball]

I haven't tried exactly this before... yet I did write my own excel/perl import/export function.

What I learned is the following: The API is the same. Meaning: You can use the same commands and parameters. What this means for you is the following:

Xls = Workbooks.Open ( $filename, undef, undef, undef, $password);

Give this a spin, and if you have still problems, replace the undef's with emtpy strings.

/oliver/