Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из Excel в VFP любое количество страниц... / 6 сообщений из 6, страница 1 из 1
01.10.2007, 05:47
    #34837393
MaestroEv
MaestroEv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из Excel в VFP любое количество страниц...
В поиске видел все.. но нет примера как из XLS в VFP перегнать любое количество страниц..

Имена в разных файлах ...страниц разные..... количество страниц разное...
Одинаковая структура на кажой странице...

Нужно что-то типа: append from .... type xls ALL
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2007, 09:26
    #34837503
Sergey Ch
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из Excel в VFP любое количество страниц...
Немного непонятно, что Вы подразумеваете под количеством страниц. Если это Sheets в Excel файле, то в FoxPro нельзя это сделать одной командой.

Я использую следующий алгоритм:

- открываю файл Excel как Com объект, методом перебора запоминаю все имена Sheets (Workbooks) в массив
- далее в цикле импортирую все эти Sheets в таблицу, используя ключевые слова ( XL8 [SHEET cSheetName]]]) комманды APPEND FROM

Надеюсь, что мое сообщение Вам поможет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2007, 10:35
    #34837641
MaestroEv
MaestroEv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из Excel в VFP любое количество страниц...
2:Sergey Ch
----------
oExcel = CREATEOBJECT('excel.application')
oExcel.Workbooks.Open(M.FILXLS)
for each o in oExcel.Sheets
o.select
M.LIST=o.name
if !empty(m.LIST)
DIMEN LIST(M.III)
LIST(M.III)=M.LIST
M.III=M.III+1
endif
next
oExcel.quit()
****
FOR M.III=1 TO ALEN(LIST)
SELECT DNSTMP
M_COM="APPEND FROM '"+M.FILXLS+"' TYPE XL8 SHEET "+ALLTRIM(LIST(M.III))+" AS 1251"
&M_COM
NEXT
-------
Первый лист грузит и пишет :
Ole..... A Share violation has occurred...
--------
Листы переименовывал... Есть идеи?
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2007, 11:26
    #34837828
vkluch
vkluch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из Excel в VFP любое количество страниц...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
CREATE CURSOR DNSTMP (nn N( 10 )) 
lcFile='C:\111.XLS'
oExcel = CREATEOBJECT('excel.application') 
oExcel.Workbooks.Open(lcFile) 
III= 1 
for each o in oExcel.Sheets 
o.select
M_LIST=o.name
if !empty(m_LIST)
DIMEN LISTT(III)
LISTT(III)=M_LIST
III=III+ 1 
endif 
next
oExcel.quit()
INKEY( 0 . 1 )    &&   <------------------------------
****
FOR j= 1  TO ALEN(LISTt)
SELECT DNSTMP
M_COM='APPEND FROM '+lcFile+' TYPE XL8 SHEET '+'"'+ALLTRIM(listt(j))+'" AS 1251'  && <-------
&M_COM
NEXT
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.10.2007, 18:24
    #34839160
Sergey Ch
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из Excel в VFP любое количество страниц...
MaestroEv-------
Первый лист грузит и пишет :
Ole..... A Share violation has occurred...
--------
Листы переименовывал... Есть идеи?
Спасибо.
Ответ дан выше, иногда паузу надо увеличить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.10.2007, 04:53
    #34842508
MaestroEv
MaestroEv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Из Excel в VFP любое количество страниц...
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Из Excel в VFP любое количество страниц... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 304ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1588710]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 188ms
total:  304ms
x
x
Закрыть


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