Отправлено: 24.03.09 17:25. Заголовок: вопрос по Excel

Всем, привет !

Выделяю строчку в листе:

oXls:Sheets(OemToAnsi("Лист1")):Range("B"+ltrim(str(nn+st))+":F"+ltrim(str(nn+st)) ):Select()

а вот копирование выделенного в clipboard дает ошибку - неправильно указана принадлежность объекта Selection()

oXls:Sheets(OemToAnsi("Лист1")):Selection():Copy() ??

 Отправлено: 02.10.12 21:12. Заголовок: Vlad04 PAR1+"PI..

Vlad04
PAR1+"PIC\ITOG.xls" это что ? Путь доступа к файлу ?
Возможно что то не то в PAR1

 Отправлено: 02.10.12 21:36. Заголовок: Vlad04 пишет: xXarb..

Vlad04 пишет:

цитата:

xXarbour 1.

Сразу не обратил внимания. У меня тоже самое работает в Harbour 2.0.0

 Отправлено: 03.10.12 13:11. Заголовок: Поместил ExcelApl:..

Поместил

цитата:

ExcelApl:WorkBooks:Open(Par1+"PIC\ITOG.xls")

в функцию , где инициализируется ExcelApl ( что не совсем удобно) и все заработало. Повидимому что-то на системном уровне xXarbour - предыдущие отчеты работают, а этот требует уже особого внимания.

цитата:

PAR1+"PIC\ITOG.xls" это что ? Путь доступа к файлу ?

Да , это путь к шаблону
Спасибо за участие.
Как нибудь на xXarbour 1.2.1 проверю

 Отправлено: 28.06.23 13:39. Заголовок: i3t4j6 пишет: ....в..

i3t4j6 пишет:

цитата:

....в указанном месте вставка не производится, потому что копируется ячейка, которая последней редактировалась в Excelе и она же и вставляется

Pasha пишет:

цитата:

Надо переместиться в нужную ячейку, и затем выдать Paste

Есть файл-шаблон и в нем таблица - шапка и одна строка.
Нужно добавить несколько строк со сдвигом вниз.

oSheet:Range(oSheet:Cells(19,2),oSheet:Cells(19,64)):Select()
oSheet:Range(oSheet:Cells(19,2),oSheet:Cells(19,64)):Copy()
oSheet:Cells( 19, 2 ):Select()
oSheet:paste()

Если делаю так, то строка не добавляется , а информация пишется поверх существующей ?

 Отправлено: 28.06.23 15:16. Заголовок: Наверное надо сначал..

Наверное надо сначала вставить пустую строку:

oSheet:Rows(19):Insert(xlDown)

 Отправлено: 28.06.23 17:11. Заголовок: Спасибо !!!..

Спасибо !!!