
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
27.04.2004, 15:25
|
|||
|---|---|---|---|
|
|||
И снова 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=41&mobile=1&tid=1596707]: |
0ms |
get settings: |
8ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
129ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
22ms |
get tp. blocked users: |
1ms |
| others: | 229ms |
| total: | 414ms |

| 0 / 0 |
