Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Berechnungsproblem: OLE nach Excel (https://www.delphipraxis.net/11061-berechnungsproblem-ole-nach-excel.html)

Gouston 30. Okt 2003 13:25


Berechnungsproblem: OLE nach Excel
 
Hallo,

ich schreibe Beträge in ein Excelsheet per OLE. Klappt alles wunderbar,
nur kann Excel danach mit diesen Werten nicht rechnen.

Habe schon alles Mögliche ausprobiert. Auch wenn ich die Zellen vor dem
einfügen der Werte als Zahl formatiere, kann EXCEL erst damit rechnen,
wenn die Zellen von Hand per Maus oder Tastatur aktiviert (Doppelklick oder F2) werden.

Kann jemand helfen ?

Beispiel:
Delphi-Quellcode:
var
  Excel: variant;
  Sheet: variant;
  MyArr: variant;
begin
    Excel := CreateOleObject('Excel.Application');
    Excel.WorkBooks.Add;
    Sheet := Excel.ActiveSheet;
    Excel.Range['A1', 'A2'].Select;
    Excel.Selection.NumberFormat := '0,00';

    MyArr := VarArrayCreate([0,1], varOleStr);
    MyArr[0] := '123,23';
    MyArr[1] := '124,15';
    Excel.Range['A1', 'A2'].Value := MyArr;
    Excel.Visible := True;
end;
Danke schon mal!
Gouston

Treffnix 30. Okt 2003 13:42

Re: Berechnungsproblem: OLE nach Excel
 
Was genau soll Excel denn rechnen? Teilst du ihm das auch über OLE mit oder von Hand? Und welche Excel-Version?
Kann gerade den Fehler nicht nachvollziehen. Scheint bei mir zumindest bei Formeleingabe per Hand zu funktionieren. :gruebel:

Jens Schumann 30. Okt 2003 13:46

Re: Berechnungsproblem: OLE nach Excel
 
Hallo,
versuche es mal mit
Delphi-Quellcode:
MyArr := VarArrayCreate([0,1], varVariant);

Gouston 30. Okt 2003 13:57

Re: Berechnungsproblem: OLE nach Excel
 
Zitat:

Zitat von Jens Schumann
Hallo,
versuche es mal mit
Delphi-Quellcode:
MyArr := VarArrayCreate([0,1], varVariant);


Nach Klasse ! :-D Damit funktionierts.

Vielen Merci !

Gouston


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:44 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz