Скачать: CL | DM;

Копирование данных между листами 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);
работат... т.е. нада копировать с исходной страницы, а не с предыдущей...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c