Копирование данных между листами Excel

← →
BoxTer (2007-12-10 11:49) [0]

Доброе время суток!
Кто-нить знает как скопировать диапазон ячеек с одного листа Excel на другой. Лучше даже с форматированием (ширина колонок, их размеры и значения ячеек)
Вот код:
var ExcelApp,Workbook: Variant; Begin ExcelApp := CreateOleObject("Excel.Application"); Workbook := ExcelApp.WorkBooks.Add("c:\file.xls");
...
затем я создаю новый(2,3,...,n) лист
ExcelApp.Workbooks[1].WorkSheets.Add();

и с предыдущего нужно скопировать шапку таблицы. Вариант:
DestRange := ExcelApp.WorkBooks[1].WorkSheets[k].Range["A1", "L12"]; ExcelApp.WorkBooks[1].WorkSheets[k-1].Range["A1", "L12"].Copy(DestRange);
не работает :(
Спасибо!

← →
BoxTer (2007-12-11 06:46) [1]

Разобрался, если кому интересно, то код:
DestRange := ExcelApp.WorkBooks[1].WorkSheets[k].Range["A1", "L12"]; ExcelApp.WorkBooks[1].WorkSheets[1].Range["A1", "L12"].Copy(DestRange);
работат... т.е. нада копировать с исходной страницы, а не с предыдущей...

Копирование данных между листами Excel Найти похожие ветки