Delphi Controlling Excel - Creating Pivot Tables and Charts -


delphi 10 / seattle, excel 2013. writing plugin (using addin express) excel. 1 of things need create series of excel pivot tables/pivot charts. have recorded macros within excel, have vba code want. challenge porting delphi.

my code compiles, , when step through it, last line gives me error .. method 'setsourcedata' not supported automation object. fyi - xlapp variable point excel application.

procedure  tmytemplateform.pivot_touchesbyquarter; var mypivotcache: olevariant; myactive_wb : olevariant; mychart : olevariant; chartsourcerange : olevariant; tabdestination : string; begin   // add new sheet   xlapp.connect;   myactive_wb := xlapp.activeworkbook;   xlapp.worksheets.add(emptyparam, emptyparam,1, xlworksheet, locale_user_default );    // handle new sheet , set sheet name   sheet_graph1 := xlapp.activesheet;   sheet_graph1.name := 'graph1'; // cannot contain spaces.. ?????    // parameters: sourcetype, sourcedata, version   // doc at:  https://msdn.microsoft.com/en-us/library/office/ff839430.aspx   mypivotcache := myactive_wb.pivotcaches.create(xldatabase,'raw data!r1c1:r1048576c36',xlpivottableversion15);    // parameters: tabledestination, tablename, defaultversion   tabdestination := 'graph1!r3c1';   mypivotcache.createpivottable(tabdestination, 'pivottable1',xlpivottableversion15);    // select want placed...   sheet_graph1.cells.item[3, 1].select;    // https://msdn.microsoft.com/en-us/library/office/jj228277.aspx   // create chart object   mychart := sheet_graph1.shapes.addchart2(201, xlcolumnclustered);    // define range source chart.  pivot table created above   chartsourcerange := sheet_graph1.range['graph1!$a$3:$c$20'];   // tell pivot chart use chart range   mychart.setsourcedata(chartsourcerange);   end;

why getting error? related question, can point chart source pivottable1 object? right now, hard coded specific cell locations, depending on data, pivot table can bigger row3 row20.

if helps any, vba macro code (last 2 lines) is..

 activesheet.shapes.addchart2(201, xlcolumnclustered).select  activechart.setsourcedata source:=range("sheet1!$a$3:$c$20")

i found answer. instead of 

  // tell pivot chart use chart range   mychart.setsourcedata(chartsourcerange)

the code should be

 mychart.chart.setsourcedata(chartsourcerange);

Comments

Post a Comment

Popular posts from this blog

sql server - Cannot query correctly (MSSQL - PHP - JSON) -

i have little problem on project. , turns out query result returns nothing when value of first name or last name has 'ñ' in it. here's code config.php: <?php ini_set('mssql.charset', 'utf-8'); header('content-type: text/html; charset=utf-8'); $servername = "192.168.1.21"; /* ip add of db server */ $connection = array("database" => "db", "uid" => "?", "pwd" => "***"); $conn = sqlsrv_connect($servername, $connection); if(!$conn){ echo "connection not established."; die(print_r(sqlsrv_errors(), true)); } ?> myquery: $idnumber = $_post["idnum"]; $response = array(); $query2 = "select clname, cfname, cmname, cqualifier student cidno = '$idnumber'"; try{ $stmt2 = sqlsrv_query($conn, $query2); } catch(pdoexeption $ex){ $response["success"] = 0; $response["message"] = "d...
Read more

php - trouble displaying mysqli database results in correct order -

i have table in database stores events , date expire. want display events on website display current events first expired events after? i have tried following sql $sql = "select noticeid, notice, noticedesc, noticeimg, noticedate, expirydate tbl_notices group noticeid ,expired order expirydate asc"; but returns expired results first due expirydate being ordered asc in query. my tbl_notice structure looks this noticeid => int(4) notice => varchar(100) noticedesc => text noticedate => timestamp noticeimg => varchar(40) expirydate => datetime expired => int(1) 0 current or 1 expired my php code is $sql = "select noticeid, notice, noticedesc, noticeimg, noticedate, expirydate tbl_notices group noticeid ,expired order expirydate asc"; $result = mysqli_query($conn,$sql); if ($result->num_rows > 0) { // output data of each row while($row = $result->fetch_assoc()) { ...
Read more

C++ Linked List -

i trying create linked list download txt file , use linked list handle file line line. when handling downloaded linked list operations performed on such text editor would. encountering problems however. seems "node(string value)" section of code has wrong though original node() declaration no arguments passes. unable figure out quite is. node.h class node { public: node(); node(string value); void setnext(node *nextnode); // allows user set "next" pointer of node points friend class linkedlist; private: string data; // data box node* next; // pointer box }; node.cpp # include <string> # include "node.h" using namespace std; node::node() { data = ""; next = null; } node::node(string value) { data = value; next = null; } void node::setnext(node *nextnode) // allows user set "next" pointer of node points { this->next = nextnode; } your #include <string> ...
Read more