Загрузка банков с сайта ЦБ РФ

Частые запросы пользователей добавить в систему банк клиента, который отсутствует в системе вынудили написать программу, позволяющая массового актуализировать справочник кредитных организаций в SAP.

В качестве источника информации по кредитным организациям взят справочник с сайта ЦБ РФ.

Алгоритм работы программы следующий:

- Скачать с сайта ЦБ РФ каталог архивов с дампами БД (файлы .DBF) по кредитным организациям;

- Выбрать последний актуальный архив;

- Распаковать архив в память;

- Распарсить дампы БД во внутренние таблицы;

- Обновить данные в справочнике SAP.

Под катом много кода, если кому интересно - велком =)

PS: КПЗ "Справочник"

 

Отключение визуализации работы макросов в VBA

Небольшая процедурка, которая умеет вкл/выкл визуализацию работы макроса.
Очень помогает сократить время отработки макроса на больших объемах данных.

Код

Sub Vis(flag As Boolean)     With Application         .Calculation = IIf(flag, xlCalculationAutomatic, xlCalculationManual)         .ScreenUpdating = flag         .EnableEvents = flag         .DisplayStatusBar = flag         .DisplayAlerts = flag     End With End Sub

Пример вызова

Call Vis(False) Call Vis(True)

Ну и кусок кода для вывода информационного сообщения в статус бар.

Код

Application.StatusBar = "Текст сообщения" DoEvents