Есть рабочая книга Excel, в ней — "Лист 1" с выполненным шаблоном.
Этот лист нужно перенести/скопировать в "Лист 2", в этой же кни-
ге. В Excel все идет нормально, а из Delphi не получается.
Копирование одного листа рабочей книги выполняется методом Сору эле-
мента коллекции Sheets. Этот метод копирует, создает полную копию вы-
бранного листа со всеми элементами настроек и всей информацией в ячей-
ках таблицы.
Копирование листа рабочей книги
procedure TForml.Button2Click(Sender: TObject);
begin
Excel.sheets.item['лист1'].copy
end;
В представленном примере копия листа рабочей книги по умолчанию соз-
дается в новой рабочей книге. Чтобы создать копию листа в той книге, где
находится оригинал, необходимо использовать метод Сору с параметром,
представляющим собой ссылку на лист, рядом с которым необходимо по-
местить копию. Следующие два примера создают копии листа в той же ра-
бочей книге, где находится копируемый лист, и располагают их после или
до оригинала.
Расположение копий листа после или до оригинала
procedure TForml.ButtonlClick(Sender: TObject);
begin
MySheet:=Excel.sheets.item[ 'лист1'];
MySheet.copy(after:=mysheet);
end;
procedure TForml.ButtonlClick(Sender: TObject);
begin
MySheet:=Excel.sheets.item['лист1'];
MySheet.copy(Before:=mysheet);
end;
Результат выполнения данных процедур представлен на рис. П2.6.
Рис. П2.6. Создаем копии листа рабочей книги |
Главная
Каталог файлов
