ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка в Excel сразу всех данных из dbf
9 сообщений из 9, страница 1 из 1
Выгрузка в Excel сразу всех данных из dbf
    #36312084
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex-ZZZ
Гость
Делаю построчное заполнение в ексель данных из дбф.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
SELECT REZALTS

SCAN
 
	nRow=nRow+ 1 
	XLApp.cells(nRow, 1 ).Value = REZALTS.INNAME
	XLApp.cells(nRow, 2 ).Value = REZALTS.EI
	XLApp.cells(nRow, 3 ).Value = REZALTS.CENA1
	XLApp.cells(nRow, 4 ).Value = REZALTS.CENA2
	XLApp.cells(nRow, 5 ).Value = REZALTS.PRIZ	

ENDSCAN

Но когда много записей это давольно долго, даже при использовании разных приемов для ускорения (типа не отображать изменения и сворачивание страницы и т.д) которые я нашел на форуме.

Вопрос такой, можно ли переносить сразу все данные из дбф в ексель, а не построчно? Спасибо.
...
Рейтинг: 0 / 0
16.11.2009, 11:49
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312119
Melnik_A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melnik_A
Гость
2Alex-ZZZ,
Приветствую !

Как вариант - EXPORT TO FileName XLS
С последующей обработкой макросом полученного файла .
...
Рейтинг: 0 / 0
16.11.2009, 11:58
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312146
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Как вариант - EXPORT TO FileName XLS

+1, если дбф больше 65536 строк, то разбивать на несколько файлов(вывод будет быстрый), а макросами собирать отдельными
листами в одну книгу или оставлять как есть, это уже по желанию

> С последующей обработкой макросом полученного файла .

+1

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.11.2009, 12:09
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312453
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex-ZZZ
Гость
А можно поподробнее расписать по шагам про EXPORT TO FileName XLS.
Вот есть база REZALTS.DBF как ее экспортировать?
...
Рейтинг: 0 / 0
16.11.2009, 13:47
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312501
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
Alex-ZZZА можно поподробнее расписать по шагам про EXPORT TO FileName XLS.
Вот есть база REZALTS.DBF как ее экспортировать?
Код: plaintext
1.
2.
USE REZALTS.DBF 
EXPORT TO MyExcel.xls xls
USE

Больше никаких шагов.
...
Рейтинг: 0 / 0
16.11.2009, 13:58
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312559
Alex-ZZZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alex-ZZZ
Гость
Спасибо всем заработало. А еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?
...
Рейтинг: 0 / 0
16.11.2009, 14:13
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312565
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Alex-ZZZСпасибо всем заработало. А еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?
Ну-у-у, в хелпе мона почитать
...
Рейтинг: 0 / 0
16.11.2009, 14:14
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312595
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
Alex-ZZZСпасибо всем заработало. А еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?

http://www.foxclub.ru/html/be78df32-95c1-4939-a439-65f1f0b93ca9.htm
...
Рейтинг: 0 / 0
16.11.2009, 14:23
| Ответить | Цитировать | Написать  
Выгрузка в Excel сразу всех данных из dbf
    #36312968
LUCIAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LUCIAN
Гость
Alex-ZZZА еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?
С помощью Select-sql выбрать нужные столбцы в курсор и с помощью COPY TO .....xls TYPE XL5 создать Excel-таблицу

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
SELE SALDO
KSTR=RECCOUNT()
GO TOP
COP='COPY TO "c:\мои документы\SALDO'+DTOS(NADAT)+'.xls" TYPE XL5'
SET SAFETY OFF
&COP
#INCLUDE "excel.h"
#include "graph.h"
oEXCEL=CREATEOBJECT("EXCEL.APPLICATION")
cFileName = "c:\мои документы\SALDO"+DTOS(NADAT)+".xls"
objBook = oExcel.WorkBooks.Open(cFileName)
oSheet = oExcel.WorkSheets("SALDO"+DTOS(NADAT))
oExcel.Visible = .T.
WITH oSheet
	FOR J= 1  TO  6 
		.CELLS( 1 ,J).Insert
	ENDFOR
	.Columns( 1 ).ColumnWidth = 4 . 43 
	.CELLS( 2 , 1 ).VALUE="Счёт"
	.Columns( 2 ).ColumnWidth = 28 
	.CELLS( 2 , 2 ).VALUE="Наименование товара"
	.Columns( 3 ).ColumnWidth = 4 
	.CELLS( 2 , 3 ).VALUE="Ед.изм."
	.Columns( 4 ).ColumnWidth = 8 
	.CELLS( 2 , 4 ).VALUE="Цена"
	.Columns( 5 ).ColumnWidth = 9 
	.CELLS( 2 , 5 ).VALUE="Кол-во"
	.Columns( 6 ).ColumnWidth = 10 
	.CELLS( 2 , 6 ).VALUE="Сумма"
	.CELLS( 1 , 2 ).VALUE="САЛЬДОВАЯ ВЕДОМОСТЬ НА "+DTOC(NADAT)
	.Cells( 1 , 2 ).Font.Size =  11 
	.Cells( 1 , 2 ).Font.FontStyle = "полужирный"
	FOR I= 1  TO  6 
		.Cells( 2 ,I).Borders(xlEdgeLEFT).Weight = xlThin
		.Cells( 2 ,I).Borders(xlEdgeTOP).Weight = xlThin
		.Cells( 2 ,I).Borders(xlEdgeBOTTOM).Weight = xlThin
		.Cells( 2 ,I).Borders(xlEdgeRIGHT).Weight = xlThin
	ENDFOR
	RNG=NUMTOEXEL( 6 )+LTRIM(STR( 3 ))+":"+ NUMTOEXEL( 6 )+LTRIM(STR(KSTR+ 2 ))
	.Cells(KSTR+ 3 , 6 ).Formula = '=SUM('+RNG+')'
	.Cells(KSTR+ 3 , 6 ).Font.FontStyle = "полужирный"
	.Cells(KSTR+ 3 , 2 ).VALUE="Итого по ведомости"
	.Cells(KSTR+ 3 , 2 ).Font.FontStyle = "полужирный"

	.Range(.Cells( 3 , 1 ),.Cells(KSTR+ 2 , 6 )).Borders(xlInsideVertical).Weight = xlHairline
	.Range(.Cells( 3 , 1 ),.Cells(KSTR+ 2 , 6 )).Borders(xlInsideHorizontal).Weight = xlHairline
	.Range(.Cells( 3 , 1 ),.Cells(KSTR+ 2 , 6 )).Borders(xlEdgeLEFT).Weight = xlThin
	.Range(.Cells( 3 , 1 ),.Cells(KSTR+ 2 , 6 )).Borders(xlEdgeTOP).Weight = xlThin
	.Range(.Cells( 3 , 1 ),.Cells(KSTR+ 2 , 6 )).Borders(xlEdgeBOTTOM).Weight = xlThin
	.Range(.Cells( 3 , 1 ),.Cells(KSTR+ 2 , 6 )).Borders(xlEdgeRIGHT).Weight = xlThin
ENDWITH
...
Рейтинг: 0 / 0
16.11.2009, 16:31
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка в Excel сразу всех данных из dbf
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=36312453&tid=1585868]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 14ms
total:  134ms
созд. / загр.: 134ms
x
x
Закрыть


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