|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.10.2010, 20:54 | #1 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
смена кодовой страницы dbf на "866" в VBA (Excel 2003)
Обрыл весь инет, но не нашел как сменить кодовую страницу dbf на "866" в VBA... Помогите пожалуйста с данной проблемой.
Последний раз редактировалось xamillion; 01.11.2010 в 20:25. |
01.11.2010, 20:33 | #2 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Поясню подробнее... В общем пакую DBF следующим образом:
Код:
|
01.11.2010, 21:00 | #3 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Могу только подогнать самописный конвертор DBF из кодировки в кодировку
Анализ,обработка данных Недорого
|
01.11.2010, 21:25 | #4 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
|
01.11.2010, 21:36 | #5 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
А это будет часть из той проги,что писал ранее
Анализ,обработка данных Недорого
|
01.11.2010, 22:38 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Только осторожно,он перезаписывает файл
Анализ,обработка данных Недорого
|
01.11.2010, 23:16 | #7 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
спасибо... немного неудобный вариант... будем думать как из vba... придумаю - отпишусь, да и Вы не стесняйтесь )))
|
09.11.2010, 21:07 | #8 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
ну подскажите, а то
db_Connection.Execute "DO CPZERO C:\1\MyFile.dbf, 866 " не работает |
09.11.2010, 23:07 | #9 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
xamillion
1) могу написать простенькую консольную Win32 программу, которая делает то же самое, что DO CPZERO .... 2) мне кажется, что можно написать код чисто на VBA там какая-никая, но работа с бинарными файлами есть. Вы же знаете, где хранится кодовая таблица в заголовке DBF файла? Это всего навсего один байтик по смещению 29 (десятичное) или 0x1D (hex) для 866 таблицы этот байт должен быть 101 (десятичное) или 0x65 (hex) пример работы с бинарным файлом на VBA можно посмотреть, например, здесь Binary File не сдавайтесь, и всё получится. |
11.11.2010, 00:23 | #10 | |||
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Цитата:
Цитата:
Цитата:
|
|||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
изменение кодовой страницы dbf-файла (foxPro) | Ks2010 | БД в Delphi | 19 | 13.08.2010 11:33 |
EXCEL.VBA. Макрос "точной" копии документа | xАлексейx | Фриланс | 5 | 12.07.2010 22:17 |
Перевод "пространственных" координат в "экранные" , смена перспективы , вращение. | vedro-compota | Общие вопросы Delphi | 6 | 08.06.2010 21:59 |
VBA for Excel "Операция над элементами со списка" | b1otekk | Помощь студентам | 0 | 26.05.2010 23:13 |
настроить при открытии Excel 2003 в окошке "Тип файлов" вывод пункта "Все файлы (*.*)" по умолчанию? | Unior | Microsoft Office Excel | 2 | 01.03.2009 02:42 |