How to insert file objects into excel sheets?

[biswanath_c]

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?

[redgreen]

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();
}