Why am I getting an exception when I try to set the value of a cell in Excel using Perl's Win32::OLE? -

-

i getting error win32::ole<0.1709> error 0x80020009: "exception occurred" in propertyput "value" @ line 109.

the code in perl.

foreach $ref_array1 (@$array1) {     # loop through array  foreach $col1 (@$ref_array1) {         foreach $ref_array2 (@$array2) {     # loop through array         foreach $col2 (@$ref_array2) {              if ($col1 eq $col2)         {               line 109: **$worksheet1->cells($j,1)->{'value'} = $col1;**               $j++;

any kind of appreciated. thankyou

the following incomplete example works (i.e., puts 5 in cell a1):

#!/usr/bin/perl  use strict; use warnings;  use win32::ole qw(in with); use win32::ole::const 'microsoft excel'; $win32::ole::warn = 3;  $excel = get_excel(); $excel->{visible} = 1;  $book = $excel->workbooks->add; $sheet = $book->worksheets->add; $sheet->{name} = 'perl win32-ole example';  $range = $sheet->cells(1,1); $range->{value} = 5; $range->autoformat;  sub get_excel {     $excel;      unless ( eval {             $excel = win32::ole->getactiveobject('excel.application')     }) {         die $@, "\n";     }      unless(defined $excel) {         $excel = win32::ole->new('excel.application', sub { $_[0]->quit })             or die "oops, cannot start excel: ",                    win32::ole->lasterror, "\n";     }     return $excel; }

see perl win32::ole example.


Comments

Post a Comment

Popular posts from this blog

c++ - How do I get a multi line tooltip in MFC -

-
right now, have tool tip pops when hover on edit box. problem tool tip contains multiple error messages , in 1 long line. need have each error message on own line. error messages contained in cstring new line seperating them. my existing code below. bool ontooltiptext(uint, nmhdr* pnmhdr, lresult* presult) { assert(pnmhdr->code == ttn_needtexta || pnmhdr->code == ttn_needtextw); // need handle both ansi , unicode versions of message tooltiptexta* pttta = (tooltiptexta*)pnmhdr; tooltiptextw* ptttw = (tooltiptextw*)pnmhdr; // tchar szfulltext[256]; cstring strtiptext=_t(""); uint nid = pnmhdr->idfrom; if (pnmhdr->code == ttn_needtexta && (pttta->uflags & ttf_idishwnd) || pnmhdr->code == ttn_needtextw && (ptttw->uflags & ttf_idishwnd)) { // idfrom hwnd of tool nid = ::getdlgctrlid((hwnd)nid); } //m_errprojaccel[ch] contains 1 or more error messages each...
Read more

asp.net - In javascript how to find the height and width -

-
i having .aspx , masterpage page. in masterpage loading aspx page . in aspx page design using generating table structure using code-behind server in javascript how find height , width . regards, kumar if you're looking table height , width, should it var tbl = document.getelementbyid('tbldemo'); alert(tbl.offsetwidth + '\n' + tbl.offsetheight);
Read more

c# - DataTable to EnumerableRowCollection -

-
i have datatable according client requirement can contain invalid date "00/00/1999",null,empty string.(typed datset) when collect them enumerables wish convert of invalid forms empty string. (i.e) enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || (how check date invalid date) ? string.empty : order.field<datetime>("orderdate") } how check whether date valid date or not? datetime.tryparse...like given current code: datetime date; enumerablerowcollection<datarow> query = order in _table.asenumerable() select new { orderdate= string.isnullorempty(convert.tostring(order.field<datetime>("orderdate")) || !datetime.tryparse(convert.tostring(order.field<datetime...
Read more