Все уже перерыл, ни одно решение не работает.
Пробовал это решение:
procedure TForm1.Button1Click(Sender: TObject);
var
Excel: Variant;
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Workbooks.Open('C:\book.xls');
Excel.Visible:=True;
Excel.Sheets[1].Select;
Excel.Sheets[1].Copy(Null, Excel.Sheets[1]);
end;
Ругается на Copy, говорит - ошибка на сервере.
RWorkBook.Sheets['Лист1'].Copy(RWorkBook.Sheets[1])
тоже самое -- ошибка. Лист1 -- член группы не найден, если через индекс -- неверный индекс скажет.
Помогите, плиз, уже не знаю куда копать. Нужно N-ное количество раз скопировать один и тот же лист.