Ändern der Chart quellen mittels OLE

Computer: Software & Programmierung Perl & CGI
#1

Ich möchte mittels Perl & der OLE Schnittstelle die Quellen eines existierenden Diagrammes ändenr, nur weiß ich nicht, wie ich den Pfad zum Diagramm finde?!?

Ich erzeuge das .xls File mit:
##################################################################
#Erstellen der Datei
##################################################################
use strict;
use Win32::open_mouth:LE;
use Win32::open_mouth:LE::Const ‚Microsoft Excel‘;

my $Excel = Win32::open_mouth:LE->new(„Excel.Application“);
$Excel->{Visible} = 1;

my $Book = $Excel->Workbooks->Add;
my $Sheet = $Book->Worksheets(1);
my $Range = $Sheet->Range(„A2:C7“);
$Range->{Value} =
[[‚Delivered‘, ‚En route‘, ‚To be shipped‘],
[504, 102, 86],
[670, 150, 174],
[891, 261, 201],
[1274, 471, 321],
[1563, 536, 241]];

my $Chart = $Excel->Charts->Add;
$Chart->{ChartType} = xlAreaStacked;
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
$Chart->{HasTitle} = 1;
$Chart->ChartTitle->{Text} = „Items delivered, en route and to be shipped“;
##################################################################

Nun füg ein 2. Skript periodisch Werte hinzu , was auch problemlos funktioniert.
Nur möche ich, dass das Diagramm immer die letzten z.B. 5 Werte darstellt, daher muss ich die Diagrammquellen mit ändern

Ich habe folgenden Ansatz:

my $Chart = $Excel->Charts->???
#weil ich kann nicht add verwenden da ich damit ja ein neues erzeugen würde
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
#$Range, immer auf den richtigen Wert ändern und es würde funktionieren.

Nur wie kann ich das Chart auslesen???

Soweit so klar, was mein Problem ist???

#2

Hallo,

ich habe zwar nicht dasselbe Problem, passt aber gut hierher.

Bei folgende Zeilen ist mir die Funktionalität nicht ganz kalr :

my $Range = $Sheet->Range(„A1:C6“);

$Range->{Value} =
[[‚Delivered‘, ‚En route‘, ‚To be shipped‘],
[504, 102, 86],
[670, 150, 174],
[891, 261, 201],
[1274, 471, 321],
[1563, 536, 241]];

my $Chart = $Excel->Charts->Add;
$Chart->{ChartType} = xlAreaStacked;

$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});

„my $Range = $Sheet->Range(„A1:C6“);“
Diese Angabe ist unverzichtbar, da hier anscheinend auch indirekt festgelegt wird wie groß die X-Y-Matrix des Charts werden soll. Gleichzeitig werden hier aber auch die Zellen definiert in die unten angegebene Werte eingetragen werden.

Ziel : Ich will eigentlich nur mit
"$Range->{Value} =
[[‚Delivered‘, ‚En route‘, ‚To be shipped‘],
[504, 102, 86],
[670, 150, 174],
[891, 261, 201],
[1274, 471, 321],
[1563, 536, 241]];
"
angeben welche Werte in einen Graph eingetragen werden sollen ohne gleichzeitig in die Zellen zu schreiben.

Ich habe ein Excel-File wo die Werte in Zellen bereits stehen, die werden ausgelesen und sollen eben in Graphen nochmal dargestellt werden.

Wo ist der Denkfehler, kann mir jemand Referenzen zu dem Thema nennen ?

Gruß
Mario

#3

Verstehe ich das richtig?
Du willst ein Chart erzeugen, welches Werte darstellt, ohne das die Werte irgendwo im Excelfile stehen???
Das kann natürlich nicht funktionieren, da dies in Excel meines Wissens nicht vorgesehen ist!

Hier mein Programm, mit ein paar Kommentaren!
Ich erzeuge zufällig einen Wert schreibe diesen an das Ende mit Datum& Zeit Stempel ans Ende des Excelfiles und nehme die letzten 10 Werte für das Chart!
Wenn du willst schicke ich dir auch das Excelfile dazu, damit du es ausprobieren kannst!

Wobei ich auch festgestellt habe, dass OLE ein typisches Mikrosoft produkt ist, da es ab ca. 3000 Werte in der Liste (aufgrund des nicht optimal gewählten Suchalgorithmusses) sehr langsam wird. (Trotz periodischem aufrufes nur schreiben im 10 Sekunden takt)

use strict;
use Win32::open_mouth:LE qw(in with);
use Win32::open_mouth:LE::Const ‚Microsoft Excel‘;

Nummer Füllstand Zeit Datum

Win32::open_mouth:LE->Option(Warn => sub {goto Huho});
#Huho ist die die Schreibfehler abfang funktion! Keine schöne Lösung, #aber sie funktioniertt!
use Time::localtime;

#Tämporäre Lösung, um immer anderen Füllstandwert zu haben
my $fuellstand=rand(100);
my $Zeile=3;

my $test=3;
retry:
{
my $Excel = Win32::open_mouth:LE->GetObject(‚Hier/vollständigen/Pfad/angeben/Daten.xls‘);
#$Excel->{Visible} = 1;

my $Sheet = $Excel->Worksheets(1);

#Lesevorgang um Ende festzustellen
while(!($test == 0))
{
my $wert1=‚A‘.$Zeile;
my $wert2=‚D‘.$Zeile;
my $zeilenarray = $Sheet->Range($wert1 ,$wert1)->{‚Value‘};
$test=1*$zeilenarray;
$Zeile++;
}
$Zeile–;
#print „Jetzt gehts ans schreiben:“.$Zeile."\n";
#schreibvorgang

my $wert1=‚A‘.$Zeile;
my $wert2=‚D‘.$Zeile;
#print $wert1,"\t",$wert2,"\n";

my $datum=localtime->mday().’.’.(1+localtime->mon()).’.’.(1900+localtime->year());

my $zeit=localtime->hour().’:’.localtime->min().’:’.localtime->sec();
#print $zeit."\n";
my $Range = $Sheet->Range($wert1 , $wert2);
$Range->{Value} = [[$Zeile-2, $fuellstand, $zeit,$datum]];;

die letzten 10 Wärte in den Bereich des Diagrammes zu schreiben!

my $linksoben = ‚A‘.($Zeile-10);
my $rechtsunten=‚C‘.$Zeile;
my $Diagrammarray = $Sheet->Range($linksoben ,$rechtsunten)->{‚Value‘};
my $ZielRange = $Sheet->Range(„G3:I12“);
$ZielRange->{Value} = $Diagrammarray;
$Excel->Save;
exit;
}
Huho:
{
print „1 second delay, because of an error!\n“;
sleep(1);
goto retry;
}

Ich hoffe ich konnte dir etwas weiterhelfen!

#4

Ich habe ein Excel-File wo die Werte in Zellen bereits stehen, die werden ausgelesen und sollen eben in Graphen nochmal dargestellt werden.

Nein, das hast du wohl nicht richtig verstanden.

Nochmal, die Werte werden schon durch ein anderes Perl-Script in das Excel-File geschrieben.

Ich möchte nun mit einem eigenen Perl-Script diese Werte auslesen und mit einem Chart darstellen.

Mein Problem ist, ich verstehe den Zusammenhang folgender Zeilen nicht:

my $Range = $Sheet->Range(„A1:C2“);
$Range->{Value} = [[‚Delivered‘, ‚En route‘, ‚To be shipped‘], [504, 102, 86]];
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});

In der ersten Zeile sage ich, die „Range“ soll von A1:C2 sein.
In der 2t gebe ich dann auf diese „Range“ die Werte an.
Das Script schreibt in diese Zellen, da stehen bei mir aber schon die Werte und sollen nur ausgelesen werden.

Ich spiele schon mit dem Gedanken, das so zu akzeptieren und die Zellen, so wie sie sind auszulesen und mit ihren eigenen Werten zu überschreiben.

#5

Ja in der 2. Zeile werden die Werte geschrieben, lässt du diese weg, müssten deine Werte erhalten bleiben.
In der 3. Zeile wird deinem Chart die Quelle zugewiesen; Die Quelle ergibt sich aus der Range.

Soweit so klar???

bzw. ich habe die Erfahrung gemacht, wenn ein Chart nur einmal erstellt werden soll, empfielt es sich dies manuel in Excel zu machen, und wenn es sich dynamsich änder soll, ändere ich die Werte in dem Bereich für das Diagramm!

#6

omg, da fehlen mir fast die Worte, so einfah des Rätsels Lösung ^^

Ich habe genau andersherum erwartet

my $Range = $Sheet->Range(„A1:C2“);

weglassen zu können und mit

$Range->{Value} = [[‚Delivered‘, ‚En route‘, ‚To be shipped‘],
[504, 102, 86]];

expliziet die Werte angeben zu können.
Naja, hab noch nie mit Excel-Perl gearbeitet und war halt n dummer Denkfehler.

Dank dir
MfG

#7

Ich möchte mittels Perl & der OLE Schnittstelle die Quellen
eines existierenden Diagrammes ändenr, nur weiß ich nicht, wie
ich den Pfad zum Diagramm finde?!?

Nur wie kann ich das Chart auslesen???

Soweit so klar, was mein Problem ist???

Soweit ich das verstanden habe kannst du mit folgenden Befehlszeilen auf ein bestehendes Worksheet zugreifen und das weiter bearbeiten :

my $Book = $Excel->Workbooks->Open( $filename ); # open the file
foreach my $Sheet (in $Book->Sheets) # loop through all sheets
{
foreach my $ChartObj (in $Sheet->ChartObjects) # loop all charts in :the sheet

{ my $savename = „$filename.“ . $count++ . „.$filter“;
$ChartObj->Chart->Export({
FileName => $savename,
FilterName => $filter,
Interactive => 0});
}

Bin in der Perl-Hilfe darauf gestoßen, aber evtl. hast du dein Problem ja schon selbst gelöst.

MfG
Mario

#8

Ich dachte ich hätte die Hilfe von oben bis unten durch, aber das ist auf jeden Fall auch keine schlechte Lösung!

Ich hab es etwas umständlicher gemacht, indem ich dem Diagramm in einem eigenen Bereich die Werte in Excel zugewiesen habe, und diesen Bereich dynamisch mit Perl ändere!

Aber trotzdem Danke!

#9

Hallo nochmal,

habe noch ein paar Problemchen mit OLE/Charts.

Am Besten ich beschreib mal was mein Script in Etwa macht.

Die Daten im Excel-File bestehten im Wesentlichen aus aus vielen Spalten und Zeilen…unglaublich oder ? ^^

Diese sind in Daten-Blöcken zu je 2 Spalten strukturiert und sind eine bestimmte Anzahl Reihen groß. Es können mehrere Blöcke untereinander folgen, welche jeweils durch eine leere Zelle getrennt sind.

Mein Script ließt nun Blockweise die Daten ein und schreibt die Daten pro eingelesenen Block.

Es wird von Links oben, abwärts eingelesen, dann gehts 2 Spalten nach rechts usw.
Je Block sollen die Daten in ein Chart eingetragen werden.
Die untereinanderliegenden je in ein Sheet, mit farblich unterschiedlichen Graphen. Wenn eine neue Spalte beginnt wird ein neues Sheet erstellt.

Soweit so gut.

Mein erstes Problem ist, jeder Block einer Spalte überschreibt den Vorhergehenden.
Ich schreibe mit

my $Range = $Sheet->Range(„A2:C7“);
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});

in ein Sheet.
Wie schreibe ich in ein bestehendes Sheet ohne diese zu überschreiben ?

2.Problem - Wie ändere ich die Farbe des Graphen ?
3.Problem - Titel der Sheets ändern, standardmäßig heisst es ja „ChartXX“.

Ich finde in der Hilfe irgendwie keinen Ansatz.

Need Help !

Hilfreich wäre schon eine Referenz wo die ganzen Methoden, Member usw. von OLE ausführlich beschrieben sind, die Hilfe ist irgendwie ziemlich knapp gehalten.

Gruß
Mario

PS: Falls meine Problembeschreibung unklar ist, bitte nachfragen.

#10

Also es freut mich, dass andere auch mit dem selben Problem kämpfen! *gg*
Ich habe das ändern der Werte eines Graphen umgangen, aber ich bin mir sicher das es geht!

Ich weiß nicht ob du folgenden Link kennst:
http://www.xav.com/perl/faq/Windows/ActivePerl-Winfa…
Hier sind ein paar Beispiele für OLe auch dabei!

Weiters zu der Sache mit dem Graphentitel:
$Chart->{HasTitle} = 1;
$Chart->ChartTitle->{Text} = „Items delivered, en route and to be shipped“;

Was ich am besten finde, man kann das Chart dann als jpg exportieren!
Was hier weiter beschrieben ist, wie man durch alle Charts durch foreachen kann!
use strict;
use Win32::open_mouth:LE qw(in with);
use Win32::open_mouth:LE::Const;
use Win32::open_mouth:LE::Const ‚Microsoft Excel‘;
$Win32::open_mouth:LE::Warn = 3; # die on errors…

my $filename = ‚c:\documents\test.xls‘;
my $filter = ‚GIF‘; # can be GIF, JPG, JPEG or PNG
my $count = 0;

my $Excel = Win32::open_mouth:LE->GetActiveObject(‚Excel.Application‘)
|| Win32::open_mouth:LE->new(‚Excel.Application‘, ‚Quit‘); # use the Excel application if it’s open, otherwise open new
my $Book = $Excel->Workbooks->Open( $filename ); # open the file
foreach my $Sheet (in $Book->Sheets) { # loop through all sheets
foreach my $ChartObj (in $Sheet->ChartObjects) { # loop through all chartobjects in the sheet
my $savename = „$filename.“ . $count++ . „.$filter“;
$ChartObj->Chart->Export({
FileName => $savename,
FilterName => $filter,
Interactive => 0});
}
}
$Book->Close;

ICh weiß, dass es immer noch nicht dein Problem löst, auf ein bestimmtes zuzugreifen, aber damit, kannst du einmal probieren dass du es beim 2. Durchlauf wieder hast dass Chart objekt, und kannst die gesamten Wertebereich ändern! wie man einzelln hinzufügt weiß ich leider auch nicht!
Mir hat auch folgendes weitergeholfen:

Where do I find documentation for the object models?
The best way to learn about methods/properties would be through an OLE type browser if the documentation is unavailable.

If you have Microsoft Excel or Microsoft Word available, go into the Visual Basic Editor (Alt+F11). Now you can open the object browser window (F2) and see what you find.
–> Suche auch in VB Foren, und setzte den VB Code in Perl um!

Was ich aber momentan leider nicht finde, ist die möglichkeit dem chart einen Namen (keinen Titel) zu geben! Wenn man dies tut, kann man bei einem neuerlichen auftruf wieder auf das objekt zugreifen!

Glaubst du nicht, dass es in deinem Fall möglich ist Ein gesamtarray zu erstellen welches du dann mit $Range in:
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
zuweißt???

Ich hoffe dies hat die weitergeholfen! Bin auf deine Lösung auf jeden Fall sehr gespannt!

#11

Ich weiß nicht ob du folgenden Link kennst:
http://www.xav.com/perl/faq/Windows/ActivePerl-Winfa…
Hier sind ein paar Beispiele für OLe auch dabei!

Danke, schau ich mir mal an.

Where do I find documentation for the object models?
The best way to learn about methods/properties would be
through an OLE type browser if the documentation is
unavailable.

If you have Microsoft Excel or Microsoft Word available, go
into the Visual Basic Editor (Alt+F11). Now you can open the
object browser window (F2) and see what you find.
–> Suche auch in VB Foren, und setzte den VB Code in Perl
um!

Der Object-Browser ist leider keine große Hilfe, nur einziger Anhaltspunkt bislang.

Was ich aber momentan leider nicht finde, ist die möglichkeit
dem chart einen Namen (keinen Titel) zu geben! Wenn man dies
tut, kann man bei einem neuerlichen auftruf wieder auf das
objekt zugreifen!

Hm, kannst du nicht einfach alle existierenden Charts foreachen und nach Eigenschaften Title abfragen, kommt das nicht auf das gleiche hinaus ? Kommt mir spontan in den Sinn, hab ich nicht ausprobiert.

Glaubst du nicht, dass es in deinem Fall möglich ist Ein
gesamtarray zu erstellen welches du dann mit $Range in:
$Chart->SetSourceData({Source => $Range, PlotBy =>
xlColumns});
zuweißt???

Nein, da ich verschiedene Graphen zeichnen möchte, die unterschiedliche Farben haben, mussn ich zwangsläufig die Eigenschaften des Graphes ändern und in das Chart neu zeichnen.
Wie sollten sonst die Datenblöcke unterscheidbar bleiben ?

Ich hoffe dies hat die weitergeholfen! Bin auf deine Lösung
auf jeden Fall sehr gespannt!

Ich auch ^^