Excel übernimmt keine Daten

[JoelH]

Unter Delphi nutze ich folgenden Code um Daten nach Excel zu schieben

Code: Alles auswählen

procedure Tfrm_mdi_konto.doExcel(grid:TStringgrid);
var App_Excel : Variant;
    row, col : Integer;
begin
  app_excel := CreateOleObject('Excel.Application');
  app_excel.visible := false;
  app_excel.workbooks.add;
  app_excel.workbooks[1].sheets[1].name := 'Uebersicht';
  for row := 0 to grid.rowcount-1 do
  begin
    for col := 0 to grid.colcount-1 do
    begin
      //showmessage(grid.cells[col, row]);
      app_excel.workbooks[1].sheets[1].cells[row+1, col+1] := grid.cells[col, row];
    end;
  end;
  app_excel.visible := true;
end; 

Unter Lazarus übernimmt er mir leider nur den Namen des Sheets. Aber die Zellen bleiben leer. Obwohl im Grid etwas drin steht, das hab ich via des Showmessages gecheckt. Irgendwie stehe ich auf dem Schlauch.
Lazarus 2.0.10 mit FPC 3.2.0 win64 und Excel 2016

[PascalDragon]

Würdest du mal bitte sicherheitshalber mit FPC 3.2.1 oder 3.3.1 gegentesten? Es gab da seit 3.2.0 nämlich ein paar Korrekturen.

[six1]

Ich arbeite mit TsWorkSheetGrid ohne Probleme in fpc 3.2 und 3.3

Was mir an deinem Beispielcode auffällt ist, dass du EIN .add durchführst aber auf das zweite Element mit [1] zugreifst. Müsste es nicht [0] sein?

[JoelH]

Ich arbeite mit TsWorkSheetGrid ohne Probleme in fpc 3.2 und 3.3

Was mir an deinem Beispielcode auffällt ist, dass du EIN .add durchführst aber auf das zweite Element mit [1] zugreifst. Müsste es nicht [0] sein?

Na ja, die Frage ist halt erst Mal ist es ein Bug oder mach ich was falsch.

Excel kennt keine 0 da fängt immer alles mit der eins an, ist gewöhnungsbedürftig aber nicht zu ändern, besonders wenn man Code hat der möglichst auch noch mit Openoffice oder so zusammenarbeiten soll, da muss man immer umrechnen. Das add ist lediglich quick&dirty, ich spare mir so die Prüfung ob Excel schon ein Sheet auf hat oder nicht.

Würdest du mal bitte sicherheitshalber mit FPC 3.2.1 oder 3.3.1 gegentesten? Es gab da seit 3.2.0 nämlich ein paar Korrekturen.

Oha, hatte das aktuelle Lazarus runtergeladen und dachte das wäre dann auch aktuell. Muss ich Mal schauen.

[PascalDragon]

Würdest du mal bitte sicherheitshalber mit FPC 3.2.1 oder 3.3.1 gegentesten? Es gab da seit 3.2.0 nämlich ein paar Korrekturen.

Oha, hatte das aktuelle Lazarus runtergeladen und dachte das wäre dann auch aktuell. Muss ich Mal schauen.

3.2.0 ist das aktuelle Release. Die Entwicklung und das Bugfixing geht aber weiter bis es wieder ein neues Release gibt. Die 3.2.1 und 3.3.1 sind Entwicklungsversionen, zu denen es keine Releases gibt. Die muss man sich dann selber bauen (oder FpcUpDeluxe verwenden).

[theo]

Ehrlich gesagt wäre die Installation von Trunk nicht das Erste, was ich hier probieren würde.
Das ist auch mit Aufwand verbunden und die Wahrscheinlichkeit, dass es das Problem löst ist eher gering (natürlich nicht ausgeschlossen), zumal es dieses OleObject Zeug auch schon ewig in FPC/Lazarus gibt und das hier kein besonders exotisches Szenario ist.

Hast du vielleicht Umlaute drin?
https://wiki.lazarus.freepascal.org/Exc ... f.C3.BCgen

[JoelH]

Es scheint nicht an den Umlauten zu liegen. Er mag offensichtlich keine Strings. Ich habe jetzt mal etwas experimentiert.

Code: Alles auswählen

var App_Excel : OleVariant;
    row, col : Integer;
    num : Currency;
    s : String;
begin
  app_excel := CreateOleObject('Excel.Application');
  app_excel.visible := true;
  app_excel.workbooks.add;
  app_excel.workbooks[1].sheets[1].name := 'Uebersicht';
  num := 12.13;
  s := 'ich werd wahnsinnig';
  app_excel.workbooks[1].sheets[1].cells[1, 1].VALUE := 'TEST';
  app_excel.workbooks[1].sheets[1].cells[1, 2] := num;
  app_excel.workbooks[1].sheets[1].cells[1, 3] := ''''+s;
  app_excel.workbooks[1].sheets[1].cells[1, 4].Value := ''''+s;
  app_excel.workbooks[1].sheets[1].cells[1, 5] := 'manmanman';  

Die Zellen 1,2 und 5 werden übernommen und im Sheet angezeigt. Die Zellen bei denen ich s übergeben will bleiben leer. Habe auch mal mit AnsiString experimentiert, das führte dann manchmal zu Speicherüberläufen Die Hochkommas kann man auch entfernen, das ändert nicht. Auch nicht ob man VALUE oder nicht nutzt.

Da ich Text übergebe ist das ganz schlecht so

Ich habe mir aber jetzt mal das FpSpreadsheet runtergeladen. Ich sehe das doch richtig, dass ich damit auch Excelfiles generieren kann. Das würde mir nämlich auch schon genügen. Ist zwar nicht ganz so komfortabel als wenn das Excel direkt aufgeht, aber immer noch besser, als hier ewig nach dem Fehler zu suchen, denn darum scheint es sich in der Tat zu handeln.

[theo]

Hast du mal mit UTF8ToUTF16 probiert, wie in dem Link oben?

[JoelH]

Recht erfolglos =>

2020-11-26 11_53_52-Greenshot.png (6.53 KiB) 7761 mal betrachtet

Access Violation.

Ich habe jetzt den Umweg über fpSpreedsheet gewählt und auch schon umgesetzt. War jetzt das Einfachste und funktioniert.

[PascalDragon]

Ich habe jetzt den Umweg über fpSpreedsheet gewählt und auch schon umgesetzt. War jetzt das Einfachste und funktioniert.

Kannst du mal trotzdem noch folgendes (wie im internationalen Forum erwähnt) versuchen, ich habe nämlich kein Excel und würde gerne wissen, ob es tatsächlich daran liegt woran ich denke, dass es liegt ):

Code: Alles auswählen

app_excel.workbooks[1].sheets[1].cells[row+1, col+1] := WideString(grid.cells[col, row]);

[JoelH]

Kannst du mal trotzdem noch folgendes (wie im internationalen Forum erwähnt) versuchen, ich habe nämlich kein Excel und würde gerne wissen, ob es tatsächlich daran liegt woran ich denke, dass es liegt ):

Code: Alles auswählen

app_excel.workbooks[1].sheets[1].cells[row+1, col+1] := WideString(grid.cells[col, row]);

Das funktioniert tatsächlich.
Manchmal ist die Lösung doch so nah
Dann werde ich wohl nochmal umbauen.

[Sieben]

Hast du (OLE)Variant auch mal probiert? So rein interessehalber?

[theo]

Das funktioniert tatsächlich.
Manchmal ist die Lösung doch so nah
Dann werde ich wohl nochmal umbauen.

UTF8ToUTF16 hatte ich ja auch schon vorgeschlagen. Da geht es theoretisch um das gleiche Problem.
Was dabei bei dir schief lief weiss ich auch nicht. Hat wahrscheinlich mit (Ole)Variant zu tun.

[JoelH]

Hast du (OLE)Variant auch mal probiert? So rein interessehalber?

Ja, habe ich. Ich glaube das einzige was ich wirklich nciht probiert habe war Widestring

[PascalDragon]

Kannst du mal trotzdem noch folgendes (wie im internationalen Forum erwähnt) versuchen, ich habe nämlich kein Excel und würde gerne wissen, ob es tatsächlich daran liegt woran ich denke, dass es liegt ):

Code: Alles auswählen

app_excel.workbooks[1].sheets[1].cells[row+1, col+1] := WideString(grid.cells[col, row]);

Das funktioniert tatsächlich.
Manchmal ist die Lösung doch so nah
Dann werde ich wohl nochmal umbauen.

Sehr gut, dann ist das tatsächlich das Problem, was ich vermutet hatte und es sollte mit 3.2.1 und 3.3.1 dann gefixt sein (bzw. auch mit dem kommendem 3.2.2 Release ).

Das funktioniert tatsächlich.
Manchmal ist die Lösung doch so nah
Dann werde ich wohl nochmal umbauen.

UTF8ToUTF16 hatte ich ja auch schon vorgeschlagen. Da geht es theoretisch um das gleiche Problem.
Was dabei bei dir schief lief weiss ich auch nicht. Hat wahrscheinlich mit (Ole)Variant zu tun.

Das hätte in dem Fall tatsächlich nicht geholfen und so gesehen ist das Beispiel im Wiki mit 3.2.0 und älter fehlerhaft. Das Problem ist nämlich, dass die Konvertierung von sowohl AnsiString als auch UnicodeString zu WideString für das COM Dispatching in der Unit ComObj fehlerhaft war (bzw. die für UnicodeString war überhaupt gar nicht vorhanden). Das habe ich letzte Woche gefixt.