Этот баннер — требование Роскомнадзора для исполнения 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&fpage=383&tid=1596707]: |
0ms |
get settings: |
11ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
35ms |
get topic data: |
9ms |
get forum data: |
3ms |
get page messages: |
31ms |
get tp. blocked users: |
1ms |
| others: | 266ms |
| total: | 380ms |

| 0 / 0 |
