auslesen von Excel-Zelle

[t0mmy]

Hallo

Ich bin grad beim ausprobieren einer Zelle aus einem Excel dokument als ShowMessage auszugeben aber i-wie funktioniert das nicht so richtig.
Ich bekomme den Fehler:

Not engouh actual parameters bei der zeile nach den vielen emptyParam, --> _lcd);

Delphi-Quellcode:

procedure TForm2.bla3Click(Sender: TObject);
//begin
//ShowMessage(ExcelSheet); //Excel File ausgeben
var
  WorkBk: _WorkBook; // ein WorkBook deklarieren
  WorkSheet: _WorkSheet; // ein WorkSheet deklarieren
  XLApp: TExcelApplication;
  _lcid: LCID;
begin
  _lcid := GetUserDefaultLCID;
  XLApp := TExcelApplication.Create(Self);
  try
    // Zum Server TExcelApplication verbinden
    XLApp.Connect;
    try
      // WorkBooks zur ExcelApplication hinzufügen
      XLApp.Workbooks.Open('c:\test.xls', emptyParam, emptyParam,
        emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
        emptyParam, emptyParam, emptyParam, emptyParam, EmptyParam,
        _lcid);
      // erstes WorkBook auswählen
      WorkBk := XLApp.WorkBooks.Item[1];
      // erstes WorkSheet definieren
      WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
      // Wer aus Zelle (1,1) anzeigen
      ShowMessage(Worksheet.Cells.Item[1, 1].Value);

      // XLApp.Visible[0] := True;
    finally
      // Server disconnecten
      XLApp.Disconnect;
    end;
  finally
    XLApp.Quit;
  end;
end;

Danke schon mal im vorraus

[fkf]

Hi,

hier meine Anzahl Parameter:

Delphi-Quellcode:

    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(filename,
                        emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, emptyParam, emptyParam,
                        emptyParam, emptyParam, flcid));

fkf

[t0mmy]

danke ...habs anders gelöst

[Miolin]

Soweit ich weiß hat sich diese Methode immer mit Office-Versionen geändert, oder mit Delphi-Versionen. Da bin ich mir jetzt nicht so sicher. Allerdings hat sich jedes Mal die Anzahl der zu übergebenden Parameter geändert.

[Chemiker]

Hallo,

die unterschiedlich Anzahl an Parameter liegt an Excel. Man braucht nur in der Hilfe von Excel unter Workbooks.Open nachsehen, dann versteht man auch wofür die einzelnen Parameter gebraucht werden.

Bis bald Chemiker