当我们打开一个Excel文件时，我们往往需要将它的数据进行处理，比如获取文件中所有行和列的数据，并进行显示。

这里，我简单的演示一下如何列举所有列名：

procedure TForm1.Button1Click(Sender: TObject);

Var

  book: IXLSWorkbook;

  i: integer;

begin

  book := TXLSWorkbook.Create();

  book.Open('c:\a.xls');

  // 列出excel中工作表1的所有已使用的列的列名

  for i := 1 to book.Sheets[1].UsedRange.LastCol do

    Memo1.Lines.Add(book.Sheets[1].UsedRange.Item[1, i].Value);

  book.Close;

end;

代码中，我们读取Sheet1第一行的所有列，并循环输出它的内容，请注意，这里应该使用UsedRange，而不是Cells，如果你使用Cells，那么LastCol将显示Excel支持的总列数，而不是实际已经使用的列数。

举一反三，那么如何获取所有行的数据呢？是不是只要使用UsedRange.LastRow就行了？那么，通过两个循环，就可以输出Excel中所有的内容了，是不是很简单？

https://www.offeu.com/www/index_id_159.html