Цитата:
Сообщение от ~ SaM ~
Получаем список листов в книге:
Код:
Function GetSheets(value:TStrings):boolean;
var a_:integer;
begin
GetSheets:=true;
value.Clear;
try
for a_:=1 to E.ActiveWorkbook.Sheets.Count do
value.Add(E.ActiveWorkbook.Sheets.Item[a_].Name);
except
GetSheets:=false;
value.Clear;
end;
End;
Выбираем необходимый лист.
Код:
Function SelectSheet(sheet:variant):boolean;
begin
SelectSheet:=true;
try
E.ActiveWorkbook.Sheets.Item[sheet].Select
except
SelectSheet:=false;
end;
End;
Использование:
Код:
GetSheets(Combobox1.Items);
SelectSheet(Combobox1.Items.Strings[]);
|
Можно подробнее о этих функциях? Что такое E в E.ActiveWorkbook.Sheets.Count и т.д.?