谁知道如何用<em>delphi</em>得到<em>excel</em>

var xlsString : String;
i,j,c,r : Integer;
ExApp.Connect;
begin
i := 1; {如果你第一行是标题，这里就换成2}
j := 1;
r := 0;
c := 0;
ExApp.Workbooks.Add(xls表名,0);
ExcelWorkbook.ConnectTo(ExApp.Workbooks[1]); {指向第一页}
ExcelWorksheet.ConnectTo(ExcelWorkbook.Sheets[1] as _WorkSheet);
ExcelWorksheet.Activate;
xlsString := ExcelWorksheet.Cells.Item[i,j]; {第一个格e69da5e887aae79fa5e98193365子}
while xlsString<>null do
begin
xlsString := ExcelWorksheet.Cells.Item[i,j]; {第一行第一个格子}
while xlsString<>null do
begin
j := j + 1; {换到第一行第二个格子}
c := c +1;
end;
i := i +1;
j := 1;
r := r +1;
end;

end;

最后你要的就是 C, R

uses ComObj;

var Excel: OleVariant;
MaxRow,MaxCol: integer;
begin
try
Excel := CreateOLEObject( 'Excel.Application ');
except
ShowMessage( 'Excel没有安装 ');
Exit;
end;
try
Excel.WorkBooks.Open( 'c:\1.xls ');
MaxRow:=Excel.WorkSheets[1].UsedRange.Rows.Count;
MaxCol:=Excel.WorkSheets[1].UsedRange.Columns.Count;
ShowMessage(Format( '%d %d ',[MaxRow,MaxCol]));
finally
Excel.Quit;
end;
end;
你说的是遍历EXCEL的单元格，百如果你已经掌握了用DELPHI读取EXCEL数据的话，实现你的这个要求度并不难。反问之，难度较大。关于DELPHI读写EXCEL数据的问题，DELPHI盒子中有很答多例程，你可以到该网站搜索一下关键字EXCEL，导入到和导回出到的例子都有。如果万一找不到的话，再来找我。答

我们在用一个是，拿某一列做为基准，这一列在说有数据行不能为空，这样在循环的时候到空为止。这样就可以读取出来。