Пример макроса для конвертации EXCEL документов в стандартную кодировку

Convertex.bas

Этот макрос приводится как пример для конвертации файлов в формате MS EXCEL с одной кодировки в другую. В этом примере документ в формате MS EXCEL 97/2000, набранный на русской клавиатуре с использованием нестандартного шрифта Arial Az Cyr (или же Arial Az Lat) конвертируется в новый Азербайджанский юникодовский стандарт.

Чтобы пробовать этот макрос, вы должны импортировать файл CONVERT_EXCEL.BAS в MS EXCEL установленный на вашем компьютере. Это делается переходом на Visual Basic Editor через главное меню (<Tools> --> <Macro> --> <Visual Basic Editor>) или Alt+F11, далее командой <File> --> <Import File...>. Можно пользоваться альтернативными путями, даже COPY/PASTE.

Описание макроса:

Переменная <Target> содержит юникодовские коды букв Азербайджанского латинского алфавита в алфавитном порядке (сначала заглавные буквы, затем строчные), а <Source> содержит корреспондирующие коды в кодировке Arial Az Cyr (или же Arial Az Lat).

Этот макрос переводит только выделенные ячейки в активном на EXCEL-е WORKSHEET (можно выделить весь sheet)

После выделения запустите макрос <Convert_Excel> через главное меню: <Tools> --> <Macro> --> <Macros..> --> <Convert> --> <Run>,
или же альтернативными путями.

Для удобства можно добавить кнопку или пункт меню для автоматического запуска данного макроса.

Модифицируя и расширяя данный пример можете создавать собственные макросы для конвертации собственных EXCEL файлов. Меняя коды только в переменной Source, можете сконвертировать и другие файлы подготовленные на других нестандартных кодировках.

Желаем Вам Успехов!