Excel Series.Value Zuweisung funktioniert mit Office 365 nicht

[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.

[Nekromus]

Delphi-Quellcode:

  for i:= 1 to Excel.Worksheets.Count do begin
    ws:= Excel.Worksheets[i] as _Worksheet;
    if IsDataWorksheet(ws) then begin
      spalteFlow:= FindeSpalte(ws, FlowStr);
      spalteValue:= FindeSpalte(ws, ValueStr);


      if (spalteFlow > 0) and (spalteValue > 0) then begin
        zeilen:= Min(ZaehleZeilen(ws, SpalteFlow), ZaehleZeilen(ws, SpalteValue));
        if Zeilen > 0 then begin
          ser:= sc.NewSeries;   //Hier wird neue ser erzeugt
          ser.Name:= ws.Name;
          ser.AxisGroup:= xlPrimary;
          überwachungsvariablestring:=ser.Name;

          cell1:= ws.Cells.Item[3, spalteFlow];
          cell2:= ws.Cells.Item[zeilen +2, spalteFlow];

          ser.XValues:= ExcelRangeToString(ws, cell1, cell2);

Danke für eure Mühe

[hoika]

Hallo,
hm, in dem Macro steht "=', du schreibst '="

Vielleicht mal '+QuotedStr benutzen?
Das ! bei D3 kann ich nicht.


Nimm doch mal testweise genau den gleichen String wie im Macro (auch wenn die Zellen selbst nicht passen).

[Jumpy]

Zum Thema Late Binding bei Excel:

http://excelmatters.com/2013/09/23/v...-late-binding/