Question

谁知道如何用delphi得到excel数据中得行数和列数？

如题，我是
ExcelApp := CreateOleObject( 'Excel.Application' );连接excel的，请问如何得到表中数据得行数和列数？

Answer 1

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]; {第一个格子}
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