excel tabsheet einlesen , OLE fehler

[Papaschlumpf73]

Habe die Funktion schnell mal ausprobiert. Sie funktioniert soweit mit einer einfachen Excel-Datei. Möglicherweise enthält deine Datei Formeln mit Berechnungsfehlern. z.B. "A1 DIV 0". Versuche es mal mit einer ganz einfachen Excel-Datei mit zwei, drei Zahlen ohne Berechnungen.

[bernhard_LA]

was ist die einfachste Möglichkeit für dem Import alle Formeln in feste Wert zu verwandeln ? Save as *.csv ?????

[quaero]

Kann es sein, dass du in deiner Excel-Tabelle Felder ohne Werte hast und dessen NULL-Werte nicht umgewandelt werden können?

[bernhard_LA]

ja, wie müsste ich auf diese Null Felder am besten reagieren ?

[Jumpy]

Kann man das Ganze nicht gefühlt sauberer eindampfen zu:

Delphi-Quellcode:

function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean;
var
   XLApp, workbook, Sheet: OLEVariant;
   row, col: Integer;
begin
   Result := False;
   XLApp := CreateOleObject('Excel.Application');
   try
     XLApp.Visible := False;
     Workbook:=XLApp.Workbooks.Open(AXLSFile);
     Sheet := Workbook.WorkSheets[1];

     // Set Stringgrid's row &col dimensions.
     AGrid.RowCount := Sheet.UsedRange.Rows.Count;
     AGrid.ColCount := Sheet.UsedRange.Columns.Count;

     // Define the loop for filling in the TStringGrid
     for row = 1 to Sheet.UsedRange.Rows.Count do
       for col = 1 to Sheet.UsedRange.Columns.Count do
         AGrid.Cells[(row - 1), (col - 1)] := Sheet.Cells[row,col].value;

   finally
     // Quit Excel
     if not VarIsEmpty(XLApp) then
     begin
       XLApp.Quit;
       XLAPP := Unassigned;
       Sheet := Unassigned;
       Result := True;
     end;
   end;
end;

[nahpets]

Zwei Möglichkeiten, die helfen könnten:

Delphi-Quellcode:

if VarIsEmpty(RangeMatrix[K, R]) then begin
  AGrid.Cells[(r - 1), (k - 1)] := '<leer>'; // bzw. einfach := '';
end else begin
  AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R];
end;

oder (unelegant)
  AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R] + '';

Jumpys Variante gefällt mir besser, wenn dort der Fehler weiterhin auftritt, wäre er in der Zeile zu vermuten:
AGrid.Cells[(row - 1), (col - 1)] := Sheet.Cells[row,col].value; Hier würd' ich erstmal ein Try except drum bauen und in 'ner Fehlermeldung row und col ausgeben und dann mal in der Exceltabelle nachschauen, was denn da drinne steht, eventuell kann man mit dem Wissen ja dann etwas besser für eine sinnvolle Fehlerbehandlung sorgen.

Delphi-Quellcode:

try
  AGrid.Cells[(row - 1), (col - 1)] := Sheet.Cells[row,col].value;
except
  on e : exception do begin
    ShowMessage(Format('row: %d, col: %d',[row,col]));
  end;
end;

[Jumpy]

Beim nochmaligen Nachdenken habe ich überlegt, dass es vllt. helfen könnte, denn Zellwert bereits in Excel auf den für das StringGrid benötigten String zu casten, was evtl. mit diesem Trick gehen könnte:

AGrid.Cells[(row - 1), (col - 1)] := XLApp.WorksheetFunction.Text(Sheet.Cells[row,col].value,Sheet.Cells[row,col].NumberFormat);

[bernhard_LA]

die fehler entstanden durch Zellen mit einem div 0 Error in Excel, nach einer Datenbereinigung klappt es jetzt mit dem Import