READ FROM EXCEL CELLS IN DELPHI

[blue]

HOW TO READ FROM CELLS OF EXCEL FILES IN DELPHI?

[xfchai]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
Button1: TButton;
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var iCount:integer;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;

ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);

ExcelWorksheet1.Cells.Item[iCount,1]:='你想显示的字符串';
ExcelWorksheet1.Cells.Item[iCount,2]:=iCount;//整型数字

ExcelApplication1.Disconnect;
ExcelApplication1.Quit;

end;

end.

[goldenkey]

最后两句似乎应为：
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
还有要在读之前先打开文件。

[huitor]

使用D5容易实现，D5在"Server"上提供了ExcelApplication对象.
也可以引入Excel.olb来实现.

[blue]

谢谢各位的帮助！

关于这个问题，我找到以下的方法，也供大家参考：
（利用DELPHI中的自动类型）

/*此方法可打开文件进行操作是在--"暗"(打开EXCEL文件而不用打开EXCEL程序)--处进行的*/
var
APP,WORK:VARIANT; /*定义自动变量*/
STR1:STRING;
NUM:REAL;

begin
APP:=CREATEOLEOBJECT('EXCEL.APPLICATION');
WORK:=CREATEOLEOBJECT('EXCEL.SHEET');

SHOWMESSAGE('RUN HERE');

WORK:=APP.WORKBOOKS.OPEN('D:\TESTDP\BOOK1.XLS'); /*打开文件，可设打开方式：在文件名后加豆号再跟打开方式参数*/

STR1:=APP.SHEETS[1].CELLS[1,1]; /*读单元格（A，1）的内容到STR1*/
NUM:=APP.SHEETS[1].CELLS[2,1];
SHOWMESSAGE('THE (1,1) IS: '+STR1+CHR(13)+'THE (2,1) IS: '+FLOATTOSTR(NUM));

/*以下是释放变量*/
APP.WORKBOOKS.CLOSE;
APP.QUIT;
APP:=UNASSIGNED;
END;