---

Hallo zusammen,

ich möchte gerne über eine Active X Schnittstelle die Ressourcenstatistiken aller Stationen in Excel laden.

Bis jetzt habe ich diese Befehle gefunden:
.statBlockiertAnteil;
.statwarteAnteil;
.statBlockiertAnteil;

Kann ich irgendwo eine Sammlung an Befehlen für die Übergabe der Daten finden? Wichtig sind vor allem auch die Daten aus der Energiestatistik, wozu ich leider noch gar nichts gefunden habe.

Danke im Voraus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nehmen Sie z.B. eine Einzelstation, aktivieren Sie die Energie-Funktionen übernehmen Sie die Änderungen, dann drücken Sie F8.
Die statistischen Werte beginnen alle mit stat...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, das hat soweit geklappt. Jetzt habe ich noch eine Frage bezüglich des Quellcodes und einer Schleifenprogrammierung.

Ich möchte aus diversen Subnetzwerken, welche verschiedene Objekte enthalten statistische Daten in Excel laden. Der unten stehende Code läuft soweit. Da ich aber in einen Subnetzwerke 10 Gleiche Maschinen habe möchte ich das Auslesen über eine Schleife lösen. Dabei ist VSC250R_1 die erste Maschine VSC250R_2 die zweite usw.. Das heißt die Daten jeder einzelnen Maschine sollen in eine eigene Zeile in der Tabelle geschrieben werden.

VSC250R_1 --> Zeile 12

VSC250R_2 --> Zeile 13 usw.

Weiß jemand, wie ich diese Schleife schreiben kann?

ActiveXExcel.ActiveWorkbook.sheets("Tabelle1").Range("H12").value:=
Gründrähen_Außenkontur.VSC250R_1.statArbeitsAnteil;

ActiveXExcel.ActiveWorkbook.sheets("Tabelle1").Range("I12").value:=
Gründrähen_Außenkontur.VSC250R_1.statBlockiertAnteil;
ActiveXExcel.ActiveWorkbook.sheets("Tabelle1").Range("J12").value:=
Gründrähen_Außenkontur.VSC250R_1.statwarteAnteil;

Vielen Dank im Voraus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wenn i die Laufvariable der schleife ist:

dynamischer Objektverweis:

Code:

---

str_to_obj("Gründrähen_Außenkontur.VSC250R_"+to_str(i)).statArbeitsAnteil

---

In Excel ist es besser mit cells statt mit Range auf die Zelle zuzugreifen. Dann können Sie die Zeile direkt mit der Laufvariable der
Schleife ansprechen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke erstmal. Brauche ich ich nicht 2 Laufvariablen? Zum einen soll der Name der Maschine um +1 erhöht werden, zum anderen in die nächste Zeile gesprungen werden, um da die Daten der nächsten Maschine einzutragen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wenn der Abstand bei beiden Werten 1 ist, dann reicht eine Variable. Sie müssten zu den zwei Werten einfach einen festen Wert addieren (z.B. StartZeile).

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Antwort. Leider bin ich in Programmierung nicht wirklich versiert. Wie würde denn der gesamte code für diese Problemstellung aussehen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ohne Garantie:

Code:

---

for local i:=1 to anzahlMaschinen loop
  ActiveXExcel.ActiveWorkbook.sheets("Tabelle1").cells(11+i,8).value:=
str_to_obj("Gründrähen_Außenkontur.VSC250R_"+to_str(i)).statArbeitsAnteil;

ActiveXExcel.ActiveWorkbook.sheets("Tabelle1").cells(11+i,9).value:=
str_to_obj("Gründrähen_Außenkontur.VSC250R_"+to_str(i)).statBlockiertAnteil;
-- usw.

next;

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen, vielen Dank. Der Code läuft.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP