Excel Series.Value Zuweisung funktioniert mit Office 365 nicht

[Nekromus]

Liebe Community,

Ich habe folgendes Problem:
mit der Verwendung von Office 365 funktioniert mein Code nicht mehr. Mit Excel 2010 funktioniert alles einwandfrei.
Das Problem habe ich bereits identifiziert. Die Series mit den XValues und den Values ist leer bei Verwendung von Office365.

Delphi-Quellcode:

  pts:= ser.Points(EmptyParam) as Points;
          überwachungsvariable:=pts.Count;   //= 0  Keine Werte in der Series
          pt:= pts.Item(pts.Count);  // Hier knallt es

Die Zuweisung der Werte geschieht in den Zeilen 550 – 575 bei den Funktionen ExcelRangetoString.

Delphi-Quellcode:

function TDoExportForm.ExcelRangeToString(worksheet_name: WideString;
  rng: ExcelRange): WideString;
var
  s: WideString;
begin
  if worksheet_name <> '' then s:= QuotedStr(worksheet_name) + '!'
  else s:= '';

  Result:= '=' + s + rng.AddressLocal[false, false, xlA1, False, EmptyParam];
end;


function TDoExportForm.ExcelRangeToString(_ws: _Worksheet; cell1,
  cell2: OleVariant): WideString;
begin
  Result:= ExcelRangeToString(_ws.Name, _ws.Range[cell1, cell2]);
 end;

Das Result ist im Screenshot dargestellt:

Hat sich etwas in Office365 geändert?

Weitere Zuweisungen habe ich in den Zeilen 1089 ff probiert:

Delphi-Quellcode:

  ser.XValues:= '="DATA1(IGV=0°)"!D3:D62"';                   // OLE Fehler
          ser.XValues:= '="DATA1(IGV=0°)"!R[-3]C[-3]:R[-62]C[-3]"';   // OLE Fehler
          ser.XValues:= '="DATA1(IGV=0°)"!R3C3:R62C3"';               // OLE Fehler

          ser.Values:=rng;  //Mitglied nicht gefunden

Keine Variante funktioniert. Die .tlb habe ich nicht verändert. Die komplette .pas ist im Anhang.

Hat jemand eine Idee??

Liebe Grüße und Danke
Tom

[Der schöne Günther]

Ich tue mich jetzt schwer mich durch eine 1700 Zeilen schwere Unit zu wühlen. Hast du kein Minimalbeispiel dass man nachstellen kann ohne Excel-Profi zu sein?

[hoika]

Hallo,
zumindestens hier steht ein Unterschied

https://stackoverflow.com/questions/...nd-office-2013

Da musst Du dich wohl mit "try and error" durchhangeln ...
Probier das doch mal als Macro in den beiden Words und finde (hoffentlich) die Unterschiede.

[Chemiker]

Hallo,

Du benutzt die „frühe Bindung“ um Excel zu steuern. Der Vorteil ist die Geschwindigkeit, dass bei der Deklaration automatisch IntelliSense zur Verfügung steht. Der Nachteil bei der frühen Bindung ist oftmals das die frühe Bindung an einer bestimmten Excel-Version gebunden ist.
Der große Vorteil bei Verwendung von der „späten Bindung“ besteht hauptsächlich darin, dass unabhängig von der Excel-Version gearbeitet werden kann, allerdings sollte man sich mit Objekten, Methoden und Eigenschaften von Excel vertraut machen.
Wenn Du also Excel – Version unabhängig arbeiten wills, solltest Du Deine Unit auf „späte Bindung“ umstellen.

Bis bald Chemiker

[Nekromus]

Hallo hoika,

die Makroaufzeichnung habe ich mal als Screenshot angehängt. Da gibt es keine Unterschiede. Mein Screenshot von RangeToString stimmt ja überein (in Delphi).

@Chemiker,

hast du ein Tutorial zur späten Bindung für mich?

Lieben Dank

[hoika]

Hallo,
wo setzt du deine Variable ser?

PS:
Ich habe auch keine Lust, die 1.000 Zeilen zu durchgehen.

[Jumpy]

Zitat von Nekromus:

Weitere Zuweisungen habe ich in den Zeilen 1089 ff probiert:

Delphi-Quellcode:

  ser.XValues:= '="DATA1(IGV=0°)"!D3:D62"';                   // OLE Fehler
          ser.XValues:= '="DATA1(IGV=0°)"!R[-3]C[-3]:R[-62]C[-3]"';   // OLE Fehler
          ser.XValues:= '="DATA1(IGV=0°)"!R3C3:R62C3"';               // OLE Fehler

          ser.Values:=rng;  //Mitglied nicht gefunden

Tut vllt. nichts zur Sache, aber in den manuellen Versuchen wundert es mich, dass du da 3 Gänsefüßchen drin hast. Vor allem das mittlere wundert mich da jetzt.

[p80286]

Zitat von Jumpy:

Tut vllt. nichts zur Sache, aber in den manuellen Versuchen wundert es mich, dass du da 3 Gänsefüßchen drin hast. Vor allem das mittlere wundert mich da jetzt.

Das ist aber sehr vorsichtig ausgedrückt. Die Macro-Aufzeichnung liefert etwas ganz anderes, als in der Delphi-Source steht.

Delphi-Quellcode:

  ser.XValues:= '"DATA1(IGV=0°)"!D3:D62'; // OLE Fehler
  ser.XValues:= '"DATA1(IGV=0°)"!R[-3]C[-3]:R[-62]C[-3]'; // OLE Fehler
  ser.XValues:= '"DATA1(IGV=0°)"!R3C3:R62C3'; // OLE Fehler

So geht's vllt. besser.

Gruß
K-H

[Nekromus]

Das bringt bei mir leider auch einen OLE-Fehler :/

[hoika]

Hallo,
nimm doch mal einen einfacheren Ausdruck zum Testen.
Oder sogar mal VarArrayOf(1.0,2.0,3.0).