powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импорт из Excel в таблицу VFP7 с учётом полей.
9 сообщений из 9, страница 1 из 1
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32821899
Albert M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Проблема такая. Надо автоматом импортировать из Экселя данные в таблицу Фокса. Я пробовал это делать через IMPORT и APPEND FROM. Эти команды работают, но не так как надо. Если в Фоксе заранее не создана таблица, то команды не подходят. Если порядок полей в фоксовской таблице и в Экселе не совпадают (но все имеются в наличие), то часть данных теряются или записываются в неправильные поля. Итак, вопросы:

1. Можно ли перед импортом проверить в Экселевском файле наличие нужных полей (столбцов)?

2. Если с Экселе и в таблице Фокса все поля присутствуют, но не совпадает очерёдность, можно ли сделать так, чтобы данные писались в правильные поля?

3. Можно ли импортировать таблицу из Экселя не создавая заранее пустую таблицу в Фоксе (чтобы при импорте таблица в Фоксе создавалась сама)?
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822189
Онуфрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Могу предложить решить проблемы 1..3, импортируя лист вручную через ОЛЕ - т.е. чтото вроде
Код: plaintext
1.
2.
3.
4.
x=Createobject("Excel.application")
ws=x.Workbooks.Open("Книга.xls").Worksheets("Лист1")
fieldname=ws.cells( 1 , 1 ).text
&& и так далее ...
так можно и столбцы проверить, и таблицу создать с такими же столбцами, и заполнить правильно.
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822346
Albert M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое за решение! Мне ето подходит! Не подскажете еще, где я могу посмотреыть все свойства обекта Excel? Т.е. что я еще могу делать с документом Excel через OLE? Например, могу я узнать количество записей в таблице Excel (типа recc())?

Для самого импорта я должен использовать цикл типа

sele 1
use My_table
x=1
Do while !empty(ws.cells(x,1).text)
repl pole1 with ws.cells(x,1).text
x=x+1
Enddo

или можно по другому?
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822370
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все свойства и методы Excelя можно посмотреть в Helpе по VBA.
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822411
Albert M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если можно, дайте ссылку на ети свойства или ключевую фразу по которой искать! Никак не получается найти нужную информацию... :(
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822442
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Самое главное слово Application, а там вниз по дереву.
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822446
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А лучше Microsoft Excel Objects
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822463
Онуфрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если фокс 8 (а может и 7) и выше, то все необходимые методы и свойтсва плюс краткий хелп к ним и перечень параметров выпадают сами при наборе в командной строке команды для "живого объекта". по крайней мере я в основном только этим и пользуюсь.

Полный хелп см. в екселе - Alt+F11, потом F1 из VBA. Поиск можно начать , например, с "Worksheet Object"
...
Рейтинг: 0 / 0
Импорт из Excel в таблицу VFP7 с учётом полей.
    #32822529
Albert M
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо! Разобрался! :)
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Импорт из Excel в таблицу VFP7 с учётом полей.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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