Ура! Я все-таки сделал его, и он работает! :))))
Сделал макрос под Excel для автоматической адаптации Speedcam от mapcam.info формата PocketGIS специально для New Navitel. Работает с любой страной и любым регионом, даже где нет автодории и стрелки.
Сайт mapcam.info заслуживает уважения, поэтому если вы видите, что не хватает каких то точек, то создайте их на сайте, тем самым сделаете большое дело для всех пользователей.
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.
Сделал макрос под 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.
В самом начале обработки выдает ошибку:
ОтветитьУдалитьrun-time error 1004
Method "Width" of object "_Application" failed
По дебагу выводит на:
Application.Width = 724.5
Поправил, попробуйте новый скачать.
УдалитьДа, теперь отрабатывает
ОтветитьУдалитьАндрей, доброго времени суток!
ОтветитьУдалитьПосле отработки макроса выдает сообщение:
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/
Попробуйте запустить Excel от имения администратора.
УдалитьСпасибо, когда Exel pапущен от имени администратора, все получилось.
УдалитьДобрый день. С некоторого времени с mapcam.info speedcam для навител скачивается с нулями вместо IDX. Нельзя ли в макросе добавить вставку не нулевых IDX в порядке возрастания.
УдалитьСпасибо
Навител нормально работает с такими точками, зачем им присваивать не нулевые значения?
ОтветитьУдалить