смена кодовой страницы dbf на "0" в VBA (Excel 2003)

[xamillion]

Обрыл весь инет, но не нашел как сменить кодовую страницу dbf на "866" в VBA... Помогите пожалуйста с данной проблемой.

[xamillion]

Поясню подробнее... В общем пакую DBF следующим образом:

Private Sub Pack_DBF()

Dim db_Connection As ADODB.Connection
Dim connString As String
Set db_Connection = New ADODB.Connection
connString = "Provider=Microsoft OLE DB Provider for Visual FoxPro;Data Source=C:\Temp; "
db_Connection.Open connString
db_Connection.Execute "PACK DBF C:\1\MyFile.dbf "

db_Connection.Close
Set db_Connection = Nothing

End Sub

как сюда кодировку-то вставить?

[doober]

Могу только подогнать самописный конвертор DBF из кодировки в кодировку

[xamillion]

Сообщение от doober

Могу только подогнать самописный конвертор DBF из кодировки в кодировку

спасибо... буду рад любой помощи... а в чем он написан?

[doober]

А это будет часть из той проги,что писал ранее

[doober]

Только осторожно,он перезаписывает файл

[xamillion]

спасибо... немного неудобный вариант... будем думать как из vba... придумаю - отпишусь, да и Вы не стесняйтесь )))

[xamillion]

ну подскажите, а то
db_Connection.Execute "DO CPZERO C:\1\MyFile.dbf, 866 "
не работает

[Serge_Bliznykov]

xamillion
1) могу написать простенькую консольную Win32 программу, которая делает то же самое, что DO CPZERO ....

2) мне кажется, что можно написать код чисто на VBA
там какая-никая, но работа с бинарными файлами есть.
Вы же знаете, где хранится кодовая таблица в заголовке DBF файла? Это всего навсего один байтик по смещению 29 (десятичное) или 0x1D (hex)
для 866 таблицы этот байт должен быть 101 (десятичное) или 0x65 (hex)

пример работы с бинарным файлом на VBA можно посмотреть, например, здесь Binary File

не сдавайтесь, и всё получится.

[xamillion]

xamillion
1) могу написать простенькую консольную Win32 программу, которая делает то же самое, что DO CPZERO ....

это наверное самый приемлемый вариант - запустить ее с параметрами из VBA попроще наверное... если Вам нетрудно, то я только за... если долго то не берите в голову - чего-нибудь придумаю

2) мне кажется, что можно написать код чисто на VBA
там какая-никая, но работа с бинарными файлами есть.
Вы же знаете, где хранится кодовая таблица в заголовке DBF файла? Это всего навсего один байтик по смещению 29 (десятичное) или 0x1D (hex)
для 866 таблицы этот байт должен быть 101 (десятичное) или 0x65 (hex)

Ну это наверное слишком для этого

не сдавайтесь, и всё получится.

дык... так и не приходится сдаваться - еще поборемся...