这个句子怎么写?

Question

写一个ＦＯＲ循环把某个ＥＸＣＥＬ文件里面的所有worksheet名称读出来？多谢．

Answer 1

创建一个普通Application。 在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 连接Excel 97，具体方法如下： 
打开Excel97。 
I: integer;Try 
ExcelApplication1.Connect; 
Except 
End; 
ExcelApplication1.Visible[0]:=True; 
增加一个Workbook。 
ExcelWorkbook1.ConnectTo(ExcelApplication1. 
Workbooks.Add(EmptyParam,0));  for I:= 0 to   ExcelWorkbook1.Sheets.Count-1 do
 begin
   showMessage((ExcelWorkbook1.Sheets[i] as _WorkSheet).Name);
 end;

Answer 2

方法如下：1、创建一个普通Application。 2、在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 3、对Excel的一些操作，具体方法如下： 
【选择当前Workbook的某一Worksheet】
　　procedure TForm1.ComboBox1DropDown(Sender: TObject);
　　var
　　　　i: Integer;
　　begin
　　　　ComboBox1.Clear;
　　　　For i:=1 to ExcelWorkbook1.Worksheets.Count do
　　　　　　ComboBox1.Items.Add((ExcelWorkbook1.Worksheets.Item[i] as _WorkSheet).Name);
　　end;　　procedure TForm1.ComboBox1Change(Sender: TObject);
　　begin
　　　　ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.Worksheets.Item [ComboBox1.ItemIndex+1] as _WorkSheet);
　　　　ExcelWorkSheet1.Activate;
　　end;http://community.csdn.net/Expert/topic/3202/3202987.xml?temp=.1947595

Answer 3

http://www.delphijs.net/Article_Show.asp?ArticleID=384http://www.cx66.com/cxgzs/program/delphi/658.htmhttp://www.codesky.net/article/list.asp?id=4231

Answer 4

我想用这样方式:
  Excel := CreateOleObject('Excel.Application');
谢谢你，你可以按这个方式写吗?