powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с макросом в excel
2 сообщений из 2, страница 1 из 1
Проблема с макросом в excel
    #39991025
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем, добрый день!

Извините, за беспокойство и быть может легкий вопрос.
Давно не использовал и немного забыл.
Суть вот в чем: есть таблица о четырех колонках. Я вывожу туда данные по следующей схеме:

sele otchet1908
go top
do while .t.
IF EOF()
EXIT
ELSE
.cells(j,1).Value = otchet1908.fam
........................................
ENDIF
SKIP
j=j+1
enddo

а еще мне надо после каждой выведенной строки делать : внешние границы, т.е. выделять с боков и снизу, сверху каждую строку -т.е., чтобы было красиво, красивое завершение строки.


Спасибо большое заранее.


Помогите, пожалуйста, с выполнением данной задачи.

Спасибо большое.
...
Рейтинг: 0 / 0
Проблема с макросом в excel
    #39991077
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dima_18,
можно как-то так...
(должно быть гораздо шустрее, чем строчки по одной)

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
SELECT Otchet1908
COPY TO ARRAY TmpInsert
oleXLApp.ActiveSheet.Range("A1:D"+ALLTRIM(STR(RECCOUNT("Otchet1908")))).Value = ArrayParser("TmpInsert")
FOR i=7 TO 12
	oleXLApp.RANGE("A1:D"+ALLTRIM(STR(RECCOUNT("Otchet1908")))).Borders(i).Weight=2
ENDFOR

***

FUNCTION ArrayParser(lcName)
RETURN @&lcName
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с макросом в excel
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]