How to insert file objects into excel sheets?

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

I would like to insert file objects (XML documents) inside cells in excel sheet. I want the file itself to be inserted and not just the link (when i send over the excel to somebody else, they should be able to double click and open the inserted XML docs).

How can i do it in PERL?

Comment on How to insert file objects into excel sheets?

Replies are listed 'Best First'.
Re: How to insert file objects into excel sheets? by redgreen (Priest) on Nov 04, 2009 at 18:11 UTC
The best way to automate Excel is to use the macro recorder, perform the steps you want to do, then view the VBA source of the actions. Once you have that, you can convert that to perl. `#!perl use Win32::OLE; my $_app_object = (Win32::OLE->GetActiveObject('Excel.Application') \|\| Win32::OLE->new('Excel.Application')); sub Macro1 { # Macro1 Macro # Macro recorded 11/4/2009 $_app_object->Range('B3')->Select(); $_app_object->ActiveSheet->OLEObjects->Add({Filename => 'C:\\Docum +ents and Settings\\User\\My Documents\\Sitemap.xml', Link => 0, Displ +ayAsIcon => 0})->Select(); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: How to insert file objects into excel sheets?
by redgreen (Priest) on Nov 04, 2009 at 18:11 UTC

The best way to automate Excel is to use the macro recorder, perform the steps you want to do, then view the VBA source of the actions.

Once you have that, you can convert that to perl.

#!perl
use Win32::OLE;

my $_app_object = (Win32::OLE->GetActiveObject('Excel.Application') ||
                   Win32::OLE->new('Excel.Application'));

sub Macro1 {
    # Macro1 Macro
    # Macro recorded 11/4/2009

    $_app_object->Range('B3')->Select();
    $_app_object->ActiveSheet->OLEObjects->Add({Filename => 'C:\\Docum
+ents and Settings\\User\\My Documents\\Sitemap.xml', Link => 0, Displ
+ayAsIcon => 0})->Select();
}
[download]

[reply]
[d/l]