Показать сообщение отдельно
  #1  
Старый 21.08.2007, 12:06
lebedeff lebedeff вне форума
Прохожий
 
Регистрация: 21.08.2007
Сообщения: 1
Репутация: 10
Злость Копирование листа Excel через Delphi

Все уже перерыл, ни одно решение не работает.
Пробовал это решение:

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-ное количество раз скопировать один и тот же лист.
Ответить с цитированием