{"id":1588,"date":"2018-01-19T19:23:01","date_gmt":"2018-01-19T19:23:01","guid":{"rendered":"http:\/\/goofy-trucks.flywheelsites.com\/interfacing-with-com-objects-under-windows-page-7\/"},"modified":"2018-01-19T19:24:54","modified_gmt":"2018-01-19T19:24:54","slug":"interfacing-with-com-objects-under-windows-page-7","status":"publish","type":"post","link":"https:\/\/phpbuilder.com\/interfacing-with-com-objects-under-windows-page-7\/","title":{"rendered":"Interfacing with COM objects under Windows Page 7"},"content":{"rendered":"
\n
\n
By Siddharth Venkatesan<\/div>\n
on May 1, 2003<\/div>\n<\/p><\/div>\n
\n

Running the Test Script <\/h2>\n
\nNow, we come back to the work of Alain M. Samoun, as mentioned at the start of this article.
\nA nice quick example of verifying whether this has worked is by doing this example:\n<\/div>\n
\nhttps:\/\/phpbuilder.com\/columns\/alain20001003.php3<\/a>\n<\/div>\n
\nAn abbreviated example would be to run this:
\nPlease note that I’ve lifted this directly from page 3 of the above tutorial.\n<\/div>\n
\nHope this helps.\n<\/div>\n
\n\/Sid\n<\/div>\n
\n<\/p>\n

<?php<\/p>\n

<\/span>#Set\u00a0the\u00a0workbook\u00a0to\u00a0use\u00a0and\u00a0its\u00a0sheet.\u00a0In\u00a0this\u00a0example\u00a0we\u00a0use\u00a0a\u00a0spreadsheet\u00a0that
\n
#comes\u00a0with\u00a0the\u00a0Excel\u00a0installation\u00a0called:\u00a0SOLVSAMP.XLS<\/p>\n

<\/span>$workbook\u00a0<\/span>=\u00a0<\/span>\"C:Program\u00a0FilesMicrosoft\u00a0officeOfficeSamplesSOLVSAMP.XLS\"<\/span>;
\n
<\/span>$sheet\u00a0<\/span>=\u00a0<\/span>\"Quick\u00a0Tour\"<\/span>;<\/p>\n

<\/span>#Instantiate\u00a0the\u00a0spreadsheet\u00a0component.
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$ex\u00a0<\/span>=\u00a0new\u00a0<\/span>COM<\/span>(<\/span>\"Excel.sheet\"<\/span>)\u00a0or\u00a0Die\u00a0(<\/span>\"Did\u00a0not\u00a0connect\"<\/span>);<\/p>\n

<\/span>#Get\u00a0the\u00a0application\u00a0name\u00a0and\u00a0version\u00a0\u00a0\u00a0\u00a0
\n
\u00a0\u00a0\u00a0\u00a0<\/span>print\u00a0<\/span>\"Application\u00a0name:{$ex->Application->value}<BR>\"\u00a0<\/span>;\u00a0
\n
\u00a0\u00a0\u00a0\u00a0print\u00a0<\/span>\"Loaded\u00a0version:\u00a0{$ex->Application->version}<BR>\"<\/span>;\u00a0<\/p>\n

<\/span>#Open\u00a0the\u00a0workbook\u00a0that\u00a0we\u00a0want\u00a0to\u00a0use.
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$wkb\u00a0<\/span>=\u00a0<\/span>$ex<\/span>-><\/span>application<\/span>-><\/span>Workbooks<\/span>-><\/span>Open<\/span>(<\/span>$workbook<\/span>)\u00a0or\u00a0Die\u00a0(<\/span>\"Did\u00a0not\u00a0open\"<\/span>);<\/p>\n

<\/span>#Create\u00a0a\u00a0copy\u00a0of\u00a0the\u00a0workbook,\u00a0so\u00a0the\u00a0original\u00a0workbook\u00a0will\u00a0be\u00a0preserved.
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$ex<\/span>-><\/span>Application<\/span>-><\/span>ActiveWorkbook<\/span>-><\/span>SaveAs<\/span>(<\/span>\"Ourtest\"<\/span>);\u00a0\u00a0
\n
\u00a0\u00a0\u00a0\u00a0<\/span>#$ex->Application->Visible\u00a0=\u00a01;\u00a0#Uncomment\u00a0to\u00a0make\u00a0Excel\u00a0visible.<\/p>\n

#\u00a0Read\u00a0and\u00a0write\u00a0to\u00a0a\u00a0cell\u00a0in\u00a0the\u00a0new\u00a0sheet
\n
#\u00a0We\u00a0want\u00a0to\u00a0read\u00a0the\u00a0cell\u00a0E11\u00a0(Advertising\u00a0in\u00a0the\u00a04th.\u00a0Quarter)
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$sheets\u00a0<\/span>=\u00a0<\/span>$wkb<\/span>-><\/span>Worksheets<\/span>(<\/span>$sheet<\/span>);\u00a0\u00a0\u00a0\u00a0<\/span>#Select\u00a0the\u00a0sheet
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$sheets<\/span>-><\/span>activate<\/span>;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>#Activate\u00a0it
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$cell\u00a0<\/span>=\u00a0<\/span>$sheets<\/span>-><\/span>Cells<\/span>(<\/span>11<\/span>,<\/span>5<\/span>)\u00a0;\u00a0\u00a0\u00a0\u00a0<\/span>#Select\u00a0the\u00a0cell\u00a0(Row\u00a0Column\u00a0number)
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$cell<\/span>-><\/span>activate<\/span>;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>#Activate\u00a0the\u00a0cell
\n
\u00a0\u00a0\u00a0\u00a0<\/span>print\u00a0<\/span>\"Old\u00a0Value\u00a0=\u00a0{$cell->value}\u00a0<BR>\"<\/span>;\u00a0\u00a0\u00a0\u00a0<\/span>#Print\u00a0the\u00a0value\u00a0of\u00a0the\u00a0cell:10000
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$cell<\/span>-><\/span>value\u00a0<\/span>=\u00a0<\/span>15000<\/span>;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>#Change\u00a0it\u00a0to\u00a015000
\n
\u00a0\u00a0\u00a0\u00a0<\/span>print\u00a0<\/span>\"New\u00a0value\u00a0=\u00a0{$cell->value}<BR>\u00a0\"<\/span>;<\/span>#Print\u00a0the\u00a0new\u00a0value=15000<\/p>\n

#Eventually,\u00a0recalculate\u00a0the\u00a0sheet\u00a0with\u00a0the\u00a0new\u00a0value.
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$sheets<\/span>-><\/span>Calculate<\/span>;\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>#Necessary\u00a0only\u00a0if\u00a0calc.\u00a0option\u00a0is\u00a0manual
\n
#And\u00a0see\u00a0the\u00a0effect\u00a0on\u00a0total\u00a0cost(Cell\u00a0E13)
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$cell\u00a0<\/span>=\u00a0<\/span>$sheets<\/span>-><\/span>Cells<\/span>(<\/span>13<\/span>,<\/span>5<\/span>)\u00a0;\u00a0\u00a0\u00a0\u00a0<\/span>#Select\u00a0the\u00a0cell\u00a0(Row\u00a0Column\u00a0number)
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$number\u00a0<\/span>=\u00a0<\/span>Number_format<\/span>(<\/span>$cell<\/span>-><\/span>value<\/span>);
\n
\u00a0\u00a0\u00a0\u00a0print\u00a0<\/span>\"New\u00a0Total\u00a0cost\u00a0=$$number\u00a0-\u00a0was\u00a0$47,732\u00a0before.<BR>\"<\/span>;
\n
<\/span>#Should\u00a0print\u00a0$57,809\u00a0because\u00a0the\u00a0advertising\u00a0affects\u00a0the\u00a0Corporate\u00a0overhead\u00a0in\u00a0the
\n
#\u00a0cell\u00a0formula.<\/p>\n

#Example\u00a0of\u00a0use\u00a0of\u00a0the\u00a0built-in\u00a0functions\u00a0in\u00a0Excel:
\n
#Function:\u00a0PMT(percent\/12\u00a0months,Number\u00a0of\u00a0payments,Loan\u00a0amount)
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$pay\u00a0<\/span>=\u00a0<\/span>$ex<\/span>-><\/span>application<\/span>-><\/span>pmt<\/span>(<\/span>0.08<\/span>\/<\/span>12<\/span>,<\/span>10<\/span>,<\/span>10000<\/span>);\u00a0
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$pay\u00a0<\/span>=\u00a0<\/span>sprintf<\/span>(<\/span>\"%.2f\"<\/span>,<\/span>$pay<\/span>);
\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0print\u00a0<\/span>\"Monthly\u00a0payment\u00a0for\u00a0$10,000\u00a0loan\u00a0@8%\u00a0interest\u00a0\/10\u00a0months:\u00a0$\u00a0$pay<BR>\"<\/span>;\u00a0
\n
<\/span>#Should\u00a0print\u00a0monthly\u00a0payment\u00a0=\u00a0$\u00a0-1,037.03\u00a0\u00a0\u00a0\u00a0
\n
\u00a0\u00a0\u00a0\u00a0
\n
#Optionally,\u00a0save\u00a0the\u00a0modified\u00a0workbook
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$ex<\/span>-><\/span>Application<\/span>-><\/span>ActiveWorkbook<\/span>-><\/span>SaveAs<\/span>(<\/span>\"Ourtest\"<\/span>);\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0
\n
<\/span>#Close\u00a0all\u00a0workbooks\u00a0without\u00a0questioning
\n
\u00a0\u00a0\u00a0\u00a0<\/span>$ex<\/span>-><\/span>application<\/span>-><\/span>ActiveWorkbook<\/span>-><\/span>Close<\/span>(<\/span>\"False\"<\/span>);\u00a0\u00a0\u00a0\u00a0
\n
\u00a0\u00a0\u00a0\u00a0unset\u00a0(<\/span>$ex<\/span>);<\/p>\n

<\/span>?><\/span>\u00a0
\n
<\/span>
\n<\/code><\/font><\/div>\n<\/div>\n

<\/p>\n

\n
\u00ab Previous Page<\/a><\/div>\n
1<\/a> <\/div>\n
| <\/div>\n
2<\/a> <\/div>\n
| <\/div>\n
3<\/a> <\/div>\n
| <\/div>\n
4<\/a> <\/div>\n
| <\/div>\n
5<\/a> <\/div>\n
| <\/div>\n
6<\/a> <\/div>\n
| <\/div>\n
7<\/div>\n<\/div><\/div>\n","protected":false},"excerpt":{"rendered":"

Siddharth Venkatesan walks you through interfacing with COM objects under Windows<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-1588","post","type-post","status-publish","format-standard","hentry","category-tutorials"],"_links":{"self":[{"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/posts\/1588","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/comments?post=1588"}],"version-history":[{"count":1,"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/posts\/1588\/revisions"}],"predecessor-version":[{"id":3412,"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/posts\/1588\/revisions\/3412"}],"wp:attachment":[{"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/media?parent=1588"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/categories?post=1588"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/phpbuilder.com\/wp-json\/wp\/v2\/tags?post=1588"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}