Массивом в ексел / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Массивом в ексел

4 сообщений из 4, страница 1 из 1

Массивом в ексел

#33167308

неизвестный

Гость

Уважаемые, помогите пожалуйста!
Все примеры которые видел по передачи таблицы (например из грида) используют построчную передачу, а как можно одним массивом сделать это, например при помощи ado и т.д., с фоксом я знаком мало, так, что если можно по подробнее.
Заранее спасибо.

...

Рейтинг:

0 / 0

15.07.2005, 02:45:58

| Ответить | Цитировать | Написать

Массивом в ексел

#33167361

Дмитрий Т.

Гость

можно предварительно сделать нужную выборку во временную таблицу

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

*Пербросить в эксель заготовку:
copy to tmp.xls field ... type xl5
*затем отформатировать
loEx=newobject("Excel.sheet")
with loEx.parent
	.Workbooks.Open(fullpath("tmp.xls"))
	.range("a1").value="Название 1"
	.range("b1").value="Название 2"
	.Columns("A:A").ColumnWidth =  40 
	.Columns("B:B").ColumnWidth =  20 
	...
	.ActiveWorkbook.SaveAs("Новый файл",- 4143 )
	.ActiveWorkbook.Close()
endwith
release loEx

Работает быстро. Основной недостаток - выгрузка в формат Excel 95 - максимальное кол-во строк 16384. В более свежих экселях это ограничение отсутствует

...

Рейтинг:

0 / 0

15.07.2005, 07:42:23

| Ответить | Цитировать | Написать

Массивом в ексел

#33169995

Igor Korolyov

Участник

Откуда: Гомель, Беларусь

Сообщения: 2 520

Рейтинг: 0 / 0

Hi Дмитрий!

> copy to tmp.xls field ... type xl5

copy to tmp.dbf field ... type fox2x AS 866

И никаких проблем с ограничениями :) А Excel без проблем открывает такой DBF. Главное при сохранении не забыть формат указать явно :)

2 неизвестный
Массив в фоксе вплоть до VFP9 ограничен 65000 элементов. Передать массив в МЕТОД Com сервера (Excel в частности) можно было и в VFP6, а вот присвоить массив свойству (например m.loSheet.Range("A1:J10").Value = m.paArray) нельзя и поныне - будет взят лишь первый элемент массива, но зато начиная с 7-й версии фокса можно возвращать массив из функции - и можно сделать хитрый трюк:

Код: plaintext

1.
2.
3.

m.loSheet.Range("A1:J10").Value = ArrayPasser("m.paArray")
FUNCTION ArrayPasser(lcName)
  RETURN @&lcName.
ENDFUNC

Posted via ActualForum NNTP Server 1.2

...

Рейтинг:

0 / 0

16.07.2005, 18:25:55

| Ответить | Цитировать | Написать

Массивом в ексел

#33173678

gotko

Гость

Вот мой фрагмент из 5-го VFP -пашет с любым excel
**********
P_E=CREATEOBJECT('EXCEL.APPLICATION')
P_E.VISIBLE=.T.
P_E.WORKBOOKS.OPEN(file_name)
....
* выделение диапазона
p_e.range(p_e.cells(1,1),p_e.cells(strok+2,13)).select
p_e.selection.font.bold=.t.
...
for i=4 to 13 && впихивание формул
p_e.cells(strok+3,I).FormulaR1C1 = '=SUM(R[-'+alltrim(str(strok))+']C:R[-1]C)'
endfor
.....
for i=7 to 12 && обрисовка рамок
p_e.Selection.Borders(i).LineStyle=1
endfor

FOR I=1 TO ALEN(A_obj_u,1) && заголовки на плавающее кол-во стобцов
P_E.CELLS(1,I+13).VALUE=dtoc(a_obj_u(i,1))
p_e.cells(strok+3,I+13).FormulaR1C1 = '=SUM(R[-'+alltrim(str(strok))+']C:R[-1]C)'
ENDFOR

* раскраска
p_e.range(p_e.cells(1,1),p_e.cells(strok+3,3)).select
p_e.Selection.Interior.ColorIndex = 40

****и многое другое********

...

Рейтинг:

0 / 0

19.07.2005, 14:40:21

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Массивом в ексел

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=312&tid=1593847]:	0ms
get settings:	8ms
get forum list:	13ms
check forum access:	2ms
check topic access:	2ms
track hit:	53ms
get topic data:	13ms
get forum data:	3ms
get page messages:	53ms
get tp. blocked users:	2ms
others:	195ms

total:	344ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы