![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скопировать строки в Excel [D7, XP]
Neket © (2007-04-25 11:50:00)Копирую строки Row :-) из одной книги в другую таким образом:
Var
Excel,XL,XLApp,Nah:Variant;
begin
Excel:= CreateOleObject('Excel.Application');
XL:=Excel.Workbooks.Open(FName);// Открываю существующий файл
XLApp:=CreateOleObject('Excel.Application');
XLNah:=XLApp.Workbooks.Add();// Формирую новый
//------
XLApp.Workbooks[1].WorkSheets[1].Range[XLApp.Workbooks[1].WorkSheets[1].Cells.It em[k, 1], XLApp.Workbooks[1].WorkSheets[1].Cells.Item[k,EmptyParam]].copy(Excel.Workbooks[ 1].WorkSheets[2].Range[Excel.Workbooks[1].WorkSheets[2].Cells.Item[k, 1], Excel.Workbooks[1].WorkSheets[2].Cells.Item[k,EmptyParam]]);
Вылетает ошибка - "Метод Copy из Класса Range завершо неверно"
iXT (2007-04-25 12:16:00) [21]> зачем два экселя?
Тоже подумал. Открыл два файлика (xls). Глядь в диспетчер. И там два EXCEL. Ну фиг с ними. Может так ему лучше :). Но это же не смертельно (если тачка позволяет, конечно). Он жалуется на COPY
umbra (2007-04-25 12:09:00) [22]зачем два экселя?
iXT (2007-04-25 12:09:00) [23]Здается мне OleVariant
Neket (2007-04-25 11:56:00) [24]Сори.....
Вот сдесь так :
Var
Excel,XL,XLApp,XLNah:Variant