Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

добавить строку в Excel [Delphi, Windows]

xman © (2005-04-12 13:41:00)
использую.. uses comobj; var sheet,xlapp:variant; // OleExcel pathxls:string; //path to file xls Shablon:OleVariant; xlapp:=CreateOleObject('Excel.Application'); XlApp.workbooks.Add(pathxls); XlApp.Visible:=true; sheet:=XLApp.Workbooks[1].WorkSheets['книга']; Sheet.Cells[2,5]:=Edit1.Text; .. вставка данных из едит в ячейку екселя

ВОПРОС: как мне добавить строку(может правильней сказать ВСТАВИТЬ строку)
у меня есть табличная часть которыая может быть с не определенным количеством строк.
например
1. товар. цена.
2. товар2. цена2.
...
ИТОГ: 12324
как мне добавлять строку перед ИТОГОМ ?

xman (2005-04-12 22:14:00) [1]
ПОЛУЧИЛОСЬ...нашел на ощуп...:)
sheet:=XLApp.Workbooks[1].WorkSheets['имя книги'];
sheet.rows[2].insert;

xman (2005-04-12 21:51:00) [2]
народ, а че нужно сделать что бы строка добавлялась в другой книге.т.е. в не активной?

YurikGL (2005-04-12 17:10:00) [3]
Попробуй

Xlapp.selection.EntireRow.Insert;

xman (2005-04-12 16:23:00) [4]
>YurikGL ©
тут тоже бок..после точки нехотит выпадать меню...я помню когда писал давно тоже с ексзелем так тогда выпадало менюха с методами

YurikGL (2005-04-12 16:19:00) [5]
xman ©

Подозреваю, что сработает примерно так

sheet.Rows('1:1').Select;
XlApp.selection.insert;

Кроме того, покидай на форму TExcelApplication, ExcelWorkSheet и подобные компоненты на форму, далее в любом операторе набираем WordApplication1., нажимаем ctrl+пробел и внимательно читаем. Смысл доступных функций и свойств обычно понятен интуитивно.

http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1084962208

xman (2005-04-12 16:10:00) [6]
я тут коече нашел в инете...но почему у меня делфя(7) непонимает
sheet.Cells.Insert( xlShiftDown); ?

xman (2005-04-12 15:54:00) [7]
ActiveWindow.SmallScroll Down:=9
Range("A25:A41,30:30").Select
Sheets("íàêëàäíàÿ").Select
ActiveWindow.SmallScroll Down:=6
Rows("18:18").Select
Selection.Insert Shift:=xlDown
вот что мне показал макрос.....
и что мне теперь с ним делать....
неужели нема комманды типа...sheet.insert или add
помогите....очень надо

xman (2005-04-12 15:50:00) [8]
>YurikGL ©
А где можно посмотрть что выполняет макрос?

YurikGL (2005-04-12 15:44:00) [9]
Сделай макрос, который выполняет нужное действие и посмотри, как он устроен

xman (2005-04-12 14:07:00) [10]
в Excel`е это называется 'добавить ячейки'

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »