在Delphi中，怎样可从枚举Excel2000的sheet1,sheet2,....

Question

快.

Answer 1

如果是用Ado打开的,可以GetTableNames

Answer 2

可以用server中的excel控件。
xlsapplication
xlsworkbook
xlsworksheet取得xlsworkbook后，应该是可以
for i := 0 to xlsworkbook.sheets.count - 1
  xlsworksheet := xlsworkbook.sheet[i]具体语法记得不太清楚了，自己查查吧

Answer 3

正好我也在作，刚刚写出来得，还是热的
{返回Excel的Sheet列表}
function ExcelSheetList(Excel : Variant; var list : TStringList):boolean;
var
  iSheetCount : integer;
begin
  result := True;
  list.Clear;
  for iSheetCount :=0 to  Excel.sheets.count - 1 do
  begin
        List.Add(Excel.Sheets[iSheetCount+1].Name);
  end;
end;

Answer 4

ex := CreateOLEObject('Excel.Application');
sl := TStringList.Create;
ExcelSheetList(ex,sl) ;