подскажите пожалуйста,
почему у меня Sheets не работает, при выборе активного листа
var
e_app: Variant;
begin
e_app := CreateOleObject('Excel.Application');
e_app.WorkBooks.Open('D:\программа\фаил.xls');
e_app.WorkBooks.WorkSheets.Item['3'].Name;
Edit1.Text := e_app.ActiveSheet.UsedRange.Rows.Count;
Edit2.Text := e_app.ActiveSheet.UsedRange.Columns.Count+1;
e_app.Quit;
end;
|