Шаг 32 - Копируем таблицу из FoxPro в Excel сами

На вопросе конвертирования данных из DBF в другие форматы я уже останавливался в "Шаг 10 - Импорт – Экспорт данных". Однако рассмотренные ранее способы не позволяют осуществлять это во время выполнения программы, поэтому давайте напишем вот такую процедуру: procedure CopyToExcel() private cDbfFile, cXlsFile cDbfFile = getfile('DBF') if len(cDbfFile) > 0 if file(cDbfFile) use &cDbfFile cXlsFile = putfile('Excel table', 'report', 'XLS') if len(cXlsFile) > 0 copy to &cXlsFile type xl5 endif use else messagebox('Файл ' + cDbfFile + ' не найден', 16, 'Ошибка') endif endif endproc

Реализация, я думаю, прозрачна. Сначала в стандартном диалоговом окне выбираем таблицу для копирования, затем задаем имя, под которым ее сохраним.

Вот, правда, в Excel первая строка будет содержать наименование полей таблицы VFP, а сами поля будут называться как обычно для Excel (по алфавиту). В остальном же все нормально.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.