Из Excel в VFP любое количество страниц... / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

Из Excel в VFP любое количество страниц...

#34837393

MaestroEv

Участник

Откуда: г.Благовещенск

Сообщения: 276

Рейтинг: 0 / 0

В поиске видел все.. но нет примера как из XLS в VFP перегнать любое количество страниц..

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

Нужно что-то типа: append from .... type xls ALL
Спасибо.

...

Рейтинг:

0 / 0

01.10.2007, 05:47

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

Из Excel в VFP любое количество страниц...

#34837503

Sergey Ch

Участник

Откуда: Благовещенск

Сообщения: 6 775

Рейтинг: 0 / 0

Немного непонятно, что Вы подразумеваете под количеством страниц. Если это Sheets в Excel файле, то в FoxPro нельзя это сделать одной командой.

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

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

Надеюсь, что мое сообщение Вам поможет...

...

Рейтинг:

0 / 0

01.10.2007, 09:26

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

Из Excel в VFP любое количество страниц...

#34837641

MaestroEv

Участник

Откуда: г.Благовещенск

Сообщения: 276

Рейтинг: 0 / 0

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, 10:35

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

Из Excel в VFP любое количество страниц...

#34837828

vkluch

Участник

Сообщения: 59

Рейтинг: 0 / 0

Код: 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, 11:26

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

Из Excel в VFP любое количество страниц...

#34839160

Sergey Ch

Участник

Откуда: Благовещенск

Сообщения: 6 775

Рейтинг: 0 / 0

MaestroEv-------
Первый лист грузит и пишет :
Ole..... A Share violation has occurred...
--------
Листы переименовывал... Есть идеи?
Спасибо.
Ответ дан выше, иногда паузу надо увеличить...

...

Рейтинг:

0 / 0

01.10.2007, 18:24

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

Из Excel в VFP любое количество страниц...

#34842508

MaestroEv

Участник

Откуда: г.Благовещенск

Сообщения: 276

Рейтинг: 0 / 0

Спасибо.

...

Рейтинг:

0 / 0

03.10.2007, 04:53

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

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

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

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

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

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

start [/forum/topic.php?fid=41&gotonew=1&tid=1588710]:	0ms
get settings:	6ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	50ms
get topic data:	7ms
get first new msg:	5ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	2ms
others:	236ms

total:	368ms

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