|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Копирование листа 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-ное количество раз скопировать один и тот же лист. |
#2
|
|||
|
|||
У меня прошло с одним параметром:
Excel.Sheets[1].Copy(Excel.Sheets[1]); |