Копирование данных между листами Excel [D7, Win2k]
BoxTer © (2007-12-10 11:49:00)
Доброе время суток!
Кто-нить знает как скопировать диапазон ячеек с одного листа
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:00) [1]
Разобрался, если кому интересно, то код:
DestRange := ExcelApp.WorkBooks[1].WorkSheets[k].Range['A1',
'L12'];
ExcelApp.WorkBooks[1].WorkSheets[1].Range['A1',
'L12'].Copy(DestRange);
работат... т.е. нада копировать с исходной страницы, а не с
предыдущей...
Наверх 
ЧАТ |
Орешник |
|
