Как впрограмно в Excel втавить строчку.

Здравствуйте, _Umka, Вы писали:
_U>Как впрограмно в Excel втавить строчку.

здесь

Здравствуйте, _Umka, Вы писали:


_U>Как впрограмно в Excel втавить строчку.

Универсальный подход к вопросам вида: "А как зделать это или это в Excel"

1. Открываем Excel
2. Сервис->Макрос->Начать запись
3. Делаем "это или это"
4. Останавливаем запись
5. Смотрим чего там Excel наваял в макросе
6. Приводим полученный код к своей среде разработки
7. Все !!!

Удачи!

_U>>Как впрограмно в Excel втавить строчку.

C>Универсальный подход к вопросам вида: "А как зделать это или это в Excel"

C>1. Открываем Excel
C>2. Сервис->Макрос->Начать запись
C>3. Делаем "это или это"
C>4. Останавливаем запись
C>5. Смотрим чего там Excel наваял в макросе
C>6. Приводим полученный код к своей среде разработки
C>7. Все !!!

Ну вот макрос:

    Range("B5").Select
    ActiveCell.FormulaR1C1 = "abcdfg"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "abcdfg"
    Range("B6").Select
    Selection.EntireRow.Insert

Интересно где взять такой объект как Selection и EntireRow?
Я не нашел его в файлах C:\...\Delphi7\Ocx\Servers\*.pas"

Здравствуйте, _Umka, Вы писали:

_U>Ну вот макрос:

_U>

_U>    Range("B5").Select
_U>    ActiveCell.FormulaR1C1 = "abcdfg"
_U>    Range("B6").Select
_U>    ActiveCell.FormulaR1C1 = "abcdfg"
_U>    Range("B6").Select
_U>    Selection.EntireRow.Insert
_U>

_U>Интересно где взять такой объект как Selection и EntireRow?
_U>Я не нашел его в файлах C:\...\Delphi7\Ocx\Servers\*.pas"

Плохо искал. Поищи ещё. EntireRow — в диспинтерфейсе Range упоминается в файле excel97.pas.
Selection — в объектах _Application и Window там же.

Viktor Karev

T>Плохо искал. Поищи ещё. EntireRow — в диспинтерфейсе Range упоминается в файле excel97.pas.
T>Selection — в объектах _Application и Window там же.

Вобщем оказалось что не надо искать ни какой slection а сделать следующее

WorkSheet.Range['A' + IntToStr(RowIndex), 'IV' + IntToStr(RowIndex)].Rows.Insert(xlDown);

может ктонить поправит код для использования области, как в Excel — Rows("3:3").xxxx

The stars so gaily glistened... (Mon, 23 Aug 2004 08:21:30 GMT @389)
...while the fading voice of _Umka whispered through the darkness:

U> может ктонить поправит код для использования области,

Примеры из моих прог
=========Beginning of the citation==============
iSheet.Rows.Item[variant(DetailAnchorRow),emptyparam]
=========The end of the citation================

=========Beginning of the citation==============
try iRange := iSheet.Range['Summa_Balls',EmptyParam];
if Assigned(iRange) then
iRange.Value := FieldToExcel(dbfNakladnayaSummaBalls);
=========The end of the citation================

--
WinAMP://none: WinAMP is suffocated
http://Arioch.nm.ru/FL/Fidolook_SL.png Mail: the_Arioch<at>nm<dot>ru