Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
И снова Excel
|
|||
|---|---|---|---|
|
#18+
Добрый День! Открывается шаблон на основе которого я создаю новый документ. В шаблоне есть строка с формулами. Так как количество переносимых записей из таблицы VFP может быть разным, то и таблица Excel также динамически меняется. Мне необходимо каждый раз в цикле копировать строку с формулами и вставлять ее в новую, а затем в эту строку перенести данные из таблицы VFP. Как это сделать? Вот есть такой код: objExcel=CreateObject("Excel.application") oBook=objExcel.WorkBooks.Open('C:\Temp\shabl.xlt') oBook.Sheets[2].select SELECT tabl nRow=9 SCAN nRow=nRow+1 objExcel.Cells(nRow,2).Value=tabl.name objExcel.Cells(nRow,3).Value=tabl.kod и т.д. ****** Теперь мне надо выделить эту строку с формулами Скопировать ее и вставить в следующую и т.д. ***** ENDSCAN oBook.SaveAs(ALLTRIM(PUT)+'.xls') objExcel.Application.quit release objExcel ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.04.2004, 15:25 |
|
||
|
|

start [/forum/topic.php?fid=41&gotonew=1&tid=1596707]: |
0ms |
get settings: |
10ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
48ms |
get topic data: |
12ms |
get first new msg: |
7ms |
get forum data: |
3ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 251ms |
| total: | 386ms |

| 0 / 0 |
