Способов очень много. Зависит от разных условий

В простейшем случае

APPEMD FROM ... TYPE XL8

Случай чуть посложнее

http://forum.foxclub.ru/read.php?29,478107,478121#msg-478121

В совсем тяжелых случаях просто открывают экземпляр Excel и считывают данные по ячеечно.

Так посмотрите по ссылке (синий подчеркнутый текст. По нему щелкнуть левой клавишей мыши). Там достаточно подробно все расписано

У Вас какое-то приложение на FoxPro или просто среда FoxPro? Задача "перегнать в dbf" - разовая (сделал и забыл) или это некий пункт меню (кнопка) в уже созданном приложении на FoxPro?

Проблема заключается в том, что просто "перевести" содержимое файла XLS в DBF - недостаточно. Ведь таблицы DBF существуют не сами по себе, а как часть какого-то приложения. Т.е. кроме видимых пользователю данных содержит еще ряд скрытых (не видимых пользователю) полей, которые используются для взаимосвязи с другими файлами DBF в этом же приложении. И вот эти-то самые скрытые поля, как правило, невозможно заполнить из Excel, поскольку в файле XLS просто нет тех данных, которые надо записать в эти поля.

Именно по этой причине, запись данных из файла Excel в файлы DBF выполняется не напрямую, а при помощи некоего приложения (программы, метода), которое не просто считывает данные из файла Excel, но еще и формирует значения этих самых скрытых полей.

Тем не менее, можно попробовать сформировать и заполнить таблицу DBF напрямую из Excel, написав для этого соответствующий макрос. Поищите в справке VBA в Excel как использовать подключение по ODBC.

Если таблица уже есть, то можно просто открыть ее в Excel (файл-открыть), а потом скопировать данные из другого экземпляра Excel, где открыт файл XLS.

Правда, следует иметь в виду, что при открытии таблицы в Excel через файл-открыть предполагается, что содержимое таблицы хранится в кодовой странице 866 (DOS rus). Если же данные в ней хранятся в кодовой странице 1251 (Win rus), то открывать таблицу надо как "внешние данные"

Другой вариант - это сохранить файл XLS как файл CSV (текстовый файл с разделителями). Для программиста сделать разбор файла CSV проще, чем разбор файла XLS

Если Вы смотрели пример Simple.xls по приведенной Вами ссылке, то могли бы заметить, что каждый столбец Excel имеет соответствующий формат ячеек.

Например, если столбец NUMLS - это N6.0, то первый столбец листа Excel должен иметь формат ячеек "Числовой". А вот следующий столбец NUMSH - это С20, значит, формат ячеек этого столбца должен быть "Текстовый"

Искажения данные происходят не при импорте в DBF. У Вас данные искажены уже в самом файле Excel. Не корректные форматы столбцов Excel

Насчет того, что получается. Ну, получается файл DBF формата "FoxBASE+/Dbase III plus, no memo". Это, разумеется, не таблица Visual FoxPro, но собственно Visual FoxPro читает такие таблицы без проблем и без каких-либо преобразований.

Сама таблица DBF не содержит вообще никаких механизмов по преобразованию данных. Вот что в нее будет записано, то она и покажет.

Другими словами, код вполне корректный и рабочий. Если у Вас возникают какие-то проблемы, то это проблемы исходных данных. Собственно файла Excel из которых Вы данные берете.

Я не понял, в чем проблема-то?

Приведенный Вам код Excel просто "тупо" переносит содержимое ячеек Excel в соответствующие строки и поля таблицы DBF. При этом предполагается определенная структура этого самого файла Excel. Повторяющиеся значения также "тупо" будут перенесены в таблицу DBF. Нет никаких дополнительных фильтров или преобразований.

Ну и? В чем ошибка-то? Происходит замена символов в текстах?

tor_shiftВладимирМ,

Просмотрите ещё раз пожалуйста мои файлы,только мысленно как бы отбросьте эти точки(...).
Представьте что числовые значения по столбцу NUMLS повторяются(изначально так построена структура таблицы Excel,кот.нужно переконвертировать в dbf),они также повторяются и в готовой "таблице" dbf(foxpro 5.0),
но проблема с столбцом SH1 в уже преобразованной таблице dbf.
В некоторых ячейках данные неправильные.(
к примеру таблица в Excel

NUMLS NUMSH SH1 .. .. .. MESTO
.
38414 161.000
38414 145.000
.
.
38421 3.000 <<<<<<
38421 1.000 <<<<<<обратите внимание
.
.
38426 1.233



после преобразования и просмотра через Фокса:

NUMLS NUMSH SH1 .. .. .. MESTO
.
38414 161.000
38414 145.000
.
.
38421 36586.0 <<<<<<<обратите внимание
38421 36526.0 <<<<<<<
.
.
38426 1.233

Посмотрите, все-таки, пример автора кода по преобразованию содержимого Excel в DBF. У него в примере используется в качестве символа-разделителя - запятая. Точнее, тот символ, который указан как символ-разделитель целой и дробной части в том экземпляре Excel, где Вы этот код и запускаете.

У Вас же в качестве символа разделителя выступает точка.

Понимаете, конвертацией в формат DBF занимается сам Excel. Поэтому, данные в самом Excel должны быть в таком формате, чтобы не было разночтений в том, что Вы хотите получить в DBF и в том, что у Вас есть в Excel. Это именно Excel таким образом выполнил преобразование.

Если Вы указываете, что поле SH1 должно быть числовое, то и в Excel этот столбец должен быть отформатирован как числовой. И разделитель целой и дробной части должен быть такой же, как в Excel.

Повторю еще раз. Все проблемы связаны с тем, как данные отформатированы в самом Excel.

Если Вы сможете понять макрос Excel, то преобразованием там занимается вот этот метод


По сути, преобразование в числовое значение выполняет внутренняя функция Excel с именем format(). Вот у этой функции и "сносит крышу", когда она пытается преобразовать в число явную символьную строку. Во что она это преобразует, заранее сказать невозможно. Как только Вы вместо "3.00" напишете "3,00" (т.е. просто вместо точки укажите запятую), то все встает на место.

Нет, ну можно, конечно, модифицировать функцию преобразования в числовое значение следующим образом



Только это до тех пор, пока вместо символа-разделителя целой и дробной части не окажется, к примеру, дефис

tor_shift Скажите пожалуйста,как можно подправить функцию ValToDBF и можно ли поставить дополнительную строку в ValToDBF:

А кто мешает попробовать?

Только следует иметь в виду, что данная модификация повлияет на ВСЕ поля, которые должны быть числовыми. А Вы уверены, что Вам никогда не понадобятся отрицательные числа? Как собираетесь отличать минус от дефиса, как символа-разделителя?

tor_shiftА как быть к примеру с преобразованием дат,подскажите?

К примеру нужно будет добавить столбец с датами,как с ними работать?
В excel формат 04.03.2011,
а в fox'е если не ошибаюсь 04-03-2011
или не обязательно в таком формате как 04-03-2011?

Впринципе,я уже попробовал с датами типа 04.03.2011 для экселя и
переводится они на формат 04/03/2011 в foxe.
Как Вы думаете это допустимый стандарт?
То, как данные хранятся "внутри" Excel или DBF, не есть то, как они отображаются.

Для начала настройте формат отображения дат в FoxPro. Это пункт меню

Tools \ Options \ закладка Regional \ в поле "Date Format" установите значение "German"

Это тот формат отображения дат, который принят у нас ДД.ММ.ГГГГ

А физический способ хранения дат в DBF-таблицах всегда один и тот же и ни от каких способов отображения не зависит.

Правильность перевода целиком и полностью на стороне Excel. Если Excel сумеет понять, что в ячейке записана дата (не важно в каком формате), то и в DBF дата попадет "как надо".

tor_shiftМожно ли при составлении таблицы Excel указать для позиций,расположенных под наименованием NUMSH,тип Дополнительный-->Табельный номер?
Табельный номер относится к char типу данных или всё-таки нет?
У Вас же есть описание как, где и что указывать в файле Excel, чтобы получился корректный файл DBF. Вот, в соответствии с инструкцией, и располагайте.

Если Вы хотите добавить к английскому имени поля некое описание по русски, то для "голого" DBF это невозможно. Внутри файла DBF просто нет места для хранения подобных описаний. Форматом файла не предусмотрено.

В Visual FoxPro подобное возможно только для таблиц, включенных в контейнер базы данных. Но данный код не предполагает создание такого контейнера.

tor_shiftя располагал как раз в соответствии с инструкцией.
Но когда я указываю в excel тип значений для NUMSH,данные меняются на 16ричный формат.
В таком формате операторы не смогут заносить данные,как же быть тогда?
У Вас NUMSH - это текстовое поле. Вот и укажите в Excel формат столбца как "Текстовый". Потом укажите тип столбца и еще раз проверьте, что формат столбца остался "Текстовый".

Дело в том, что если формат ячейки в Excel оставлен в значении по умолчанию как "Общий", то Excel, сам, в силу своего понимания, пытается определить, какой тип данных записан в ячейке. Ну, а раз у Вас там одни цифры, вот он и предполагает, что это число. Соответственно его и конвертирует. Ну, а то, что числа отображаются в научном (16-ричный - это совсем другое) формате объясняется ограничением уже формата отображения числовых данных. В общем, в данном случае, Excel "слишком умный".

PS: Надеюсь, Вы знаете как установить формат всех ячеек одного столбца Excel? Надо щелкнуть по заголовку столбца левой клавишей мыши. После того, как столбец окажется выделенным, щелкнуть по тому же заголовку, но уже правой клавишей мыши. В открывшемся меню выбрать пункт "Формат ячейки" и выбрать "Текстовый"