Delphi & Excel & OLE Error 800A03EC

[p80286]

Hallo zusammen,

Das Zusammenspiel von Delphi und Excel ist ja schon des öfteren durchgekaut worden, darum muß ich da wohl nicht näher darauf eingehen.
um Daten in ein Excel-Sheet zu schreiben nutze ich folgenden Code:

Delphi-Quellcode:

for i:=0 to sg.rowcount-1 do begin
    for j:=0 to sg.colcount-1 do begin
      if forcestring then
        zelle:=''''+sg.cells[j,i]       { das Hochkomma erzwingt einen String in Excel!}
      else
        zelle:=sg.cells[j,i];
      excel.activesheet.cells(i+1,j+1):=zelle;  {cells1..x/1..y }
    end;
  end;

Das Funktioniert auch ganz gut. In Fällen wo der OLE-Error 800A03EC auftaucht, nutze ich forcestring um Excel davon abzuhalten, die übergebenen Daten zu falsch zu interpretieren.
Was natürlich dazu führt, das numerische Daten nicht mehr als solche erkannt werden.

Kennt Ihr einen "offiziellen" Weg um Daten sauber an Excel zu übergeben?

Gruß
K-H

[shmia]

entweder:cell.NumberFormat := '@'; oder auch:
cell.EntireColumn.NumberFormat := '@';

[p80286]

Danke ich muß es mal ausprobieren!

Gruß
K-H

[Chemiker]

Hallo p80286,

vielleicht hilft Dir dieser Link weiter:

SG nach Excel

Bis bald Chemiker

[p80286]

Hallo zusammen,

leider zickt Excel immer wieder mal und da hilft dann oft auch der viel beschwore Makro-Recorder nicht wirklich weiter.
excel.activesheet.Cells.NumberFormat := '@'; so funktioniert es zunächst einmal.
Im Beispiel Code aus dem Delphi-Treff wird mit
Range := Worksheet.Range[RefToCell(1, 1), RefToCell(MaxCol, MaxRow)]; ein Range definiert, das muß ich dann in einer stillen Stunde mit EntireColumn.Numberformat einmal ausprobieren.

Vielen Dank!
K-H

[hnoor0077]

Kennt Ihr einen "offiziellen" Weg um Daten sauber an Excel zu übergeben??????

[p80286]

Wo hast Du die vielen Fragezeichen her?

Der Vorschlag von shmia funktioniert (bei mir) seit Jahren problemlos. Wo klemmt es bei Dir?

Gruß
K-H

[Chemiker]

Hallo hnoor0077,

vielleicht hilft Dir dieser Link weiter:

https://support.microsoft.com/de-de/kb/231614#appliesto

Bis bald Chemiker

[p80286]

Der link scheint tot zu sein
aber der iist nicht schlecht:https://support.microsoft.com/de-de/...e-de/kb/231614

ggf. ist auch das hilfreich:https://support.microsoft.com/de-de/...de-de/kb/64681

Gruß
K-H

[Chemiker]

Hallo p80286,

der Link in Beitrag: #4
Ist zur Zeit nicht erreichbar, weil der der Server down ist.

http://www.delphipraxis.net/189067-d...ml#post1337205

Bis bald Chemiker