пятница, 12 декабря 2014 г.

Макрос под Excel для адаптации Speedcam

Ура! Я все-таки сделал его, и он работает! :))))

Сделал макрос под Excel для автоматической адаптации Speedcam от mapcam.info формата PocketGIS специально для New Navitel. Работает с любой страной и любым регионом, даже где нет автодории и стрелки.

Сайт mapcam.info заслуживает уважения, поэтому если вы видите, что не хватает каких то точек, то создайте их на сайте, тем самым сделаете большое дело для всех пользователей.

Как адаптировать speedcam для "NEW NAVITEL" автоматически?


1. Скачиваем МАКРОС для Excel файл Speedcam_for_New_Navitel.bas
2. Скачиваем speedcam с сайта mapcam.info указываем тип навигатора для PocketGIS (лучше указать рейтинг от 1).
Важно! Разархивируем на диск C:\ прямо в корень диска! Название файла должно быть mapcam.txt, так как в макросе прописан именно этот путь и этот файл.

3. Открываем Excel (от имени администратора) и переходим во вкладку Разработчик:

Отображение вкладки «Разработчик»
Откройте вкладку Файл.
Нажмите кнопку Параметры.
Нажмите кнопку Настроить ленту.
Выберите команду Настройка ленты и в разделе Основные вкладки установите флажок Разработчик.

4. Нажимаем на кнопку Visual Basic, далее File - Import File. Выбираем файл Speedcam_For_New_Navitel.bas
5. Закрываем Visual Basic.
6. Нажимаем на кнопку Макрос и видим наш макрос в списке. Выделяем его и нажимаем выполнить. Появится ошибка! Это нормально! Нажимаем END и снова нажимаем Выполнить. Чтобы не было ошибки, нужно в исходном файле mapcam.txt переименовать IDX в iDX. Начнется обработка. Далее спросит Сохранить отвечаем ДА.
7. На диске C:\ появится файл Speedcam_for_New_Navitel.csv. Меняем расширение с csv на txt. При необходимости меняем название файла.
8. Копируем в навигатор.

Если при выходе из Excel сохранить макрос в персональной книге, Excel спросит, то он сохранится и при следующем запуске.
Файл Speedcam_for_New_Navitel.bas можно открыть в блокноте и отредактировать пути открытия и сохранения файлов спидкам.

Добавил в FAQ. :)


Обновил спидкам Россия для New Navitel за декабрь 2014.

8 комментариев:

  1. В самом начале обработки выдает ошибку:
    run-time error 1004
    Method "Width" of object "_Application" failed

    По дебагу выводит на:
    Application.Width = 724.5

    ОтветитьУдалить
  2. Андрей, доброго времени суток!
    После отработки макроса выдает сообщение:
    Run-time error '1004'
    Ошибка доступа к документу 'Speedcam_for_New_Navitel.csv' допускающему доступ только для чтения.

    debug:
    ActiveWorkbook.SaveAs Filename:="C:\Speedcam_for_New_Navitel.csv", _
    FileFormat:=xlCSV, CreateBackup:=False
    Может быть, оси разные? У меня Win 8.1 и MSoffice 2013/

    ОтветитьУдалить
    Ответы
    1. Попробуйте запустить Excel от имения администратора.

      Удалить
    2. Спасибо, когда Exel pапущен от имени администратора, все получилось.

      Удалить
    3. Добрый день. С некоторого времени с mapcam.info speedcam для навител скачивается с нулями вместо IDX. Нельзя ли в макросе добавить вставку не нулевых IDX в порядке возрастания.
      Спасибо

      Удалить
  3. Навител нормально работает с такими точками, зачем им присваивать не нулевые значения?

    ОтветитьУдалить