Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка в Excel сразу всех данных из dbf / 9 сообщений из 9, страница 1 из 1
16.11.2009, 11:49
    #36312084
Alex-ZZZ
Alex-ZZZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
Делаю построчное заполнение в ексель данных из дбф.
Код: 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:58
    #36312119
Melnik_A
Melnik_A
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
2Alex-ZZZ,
Приветствую !

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

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

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

+1

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 13:47
    #36312453
Alex-ZZZ
Alex-ZZZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
А можно поподробнее расписать по шагам про EXPORT TO FileName XLS.
Вот есть база REZALTS.DBF как ее экспортировать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 13:58
    #36312501
reware
reware
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
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, 14:13
    #36312559
Alex-ZZZ
Alex-ZZZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
Спасибо всем заработало. А еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 14:14
    #36312565
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
Alex-ZZZСпасибо всем заработало. А еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?
Ну-у-у, в хелпе мона почитать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 14:23
    #36312595
reware
reware
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
Alex-ZZZСпасибо всем заработало. А еще вопрос, а если не все столбцы надо выводить, как это сделать? И может есть ссылка где про EXPORT TO можно почитать?

http://www.foxclub.ru/html/be78df32-95c1-4939-a439-65f1f0b93ca9.htm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 16:31
    #36312968
LUCIAN
LUCIAN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выгрузка в Excel сразу всех данных из dbf
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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выгрузка в Excel сразу всех данных из dbf / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1585868]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 327ms
total:  452ms
x
x
Закрыть


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