Как получить из делфи список всех листов в документе Excel ?

← →
SiJack © (2003-05-06 08:30) [0]

Делаю так
ExcelApp.conect;
worckBooks.Open(//документ//);
- как здесь получить список всех листов ?
ExcelApp.disconect;

← →
sniknik © (2003-05-06 08:38) [1]

не знаю как в твоем случае но так уверен будет работать быстрее

ADOConnection.ConnectionString:=
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\

← →
SiJack © (2003-05-06 09:00) [2]

ОК

← →
StarCon (2003-05-06 09:05) [3]

// Коннект к Экселю
ExcelObject := "Excel.Application";
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
try
if Reg.OpenKey("\Excel.Application\CurVer", False) then begin
ExcelObject := Reg.ReadString("");
Reg.CloseKey;
end;
finally
Reg.Free;
end;
if VarIsEmpty(XL) then begin
XL := CreateOleObject(ExcelObject);
end else begin
XL.Workbooks.Close;
end;
XL.Visible := Visible;
if (FileExists(FileName)) and
(UpperCase(ExtractFileExt(FileName)) = ".XLS") then begin
XL.Workbooks.Open(FileName);
end else begin
XL.WorkBooks.Add;
end;
// Цикл по Листам
for i := 1 to XL.WorkBooks[1].WorkSheets.Count do begin
// Поочередно сохраняем названия листов
NumForm := XL.WorkBooks[1].WorkSheets[i].Name;

Как получить из делфи список всех листов в документе Excel ? Найти похожие ветки