Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автозаполнение поля на сайте Почты рф - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение поля на сайте Почты рф (Макросы/Sub)
Автозаполнение поля на сайте Почты рф
vlad372 Дата: Четверг, 12.03.2015, 15:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Вот такая задача: два столбца, первый - значение , второй - кнопка , при нажатии на кнопку открывается сайт http://www.russianpost.ru/tracking20/ и заполняется поле "Почтовый идентификатор" значением из первого столбца. Жду ответов профессионалов. Файл прикрепил. Заранее спасибо за ответы=)
К сообщению приложен файл: excel__.xlsx (10.2 Kb)
 
Ответить
СообщениеВот такая задача: два столбца, первый - значение , второй - кнопка , при нажатии на кнопку открывается сайт http://www.russianpost.ru/tracking20/ и заполняется поле "Почтовый идентификатор" значением из первого столбца. Жду ответов профессионалов. Файл прикрепил. Заранее спасибо за ответы=)

Автор - vlad372
Дата добавления - 12.03.2015 в 15:30
antycapral Дата: Четверг, 12.03.2015, 16:41 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 5 ±
Замечаний: 0% ±

Excel 2016
На почте России не могу, смог на альтернативном ресурсе...

Смотреть файлик

И у вас треки мертвые ...
К сообщению приложен файл: test.xls (35.5 Kb)


Сообщение отредактировал antycapral - Четверг, 12.03.2015, 16:46
 
Ответить
СообщениеНа почте России не могу, смог на альтернативном ресурсе...

Смотреть файлик

И у вас треки мертвые ...

Автор - antycapral
Дата добавления - 12.03.2015 в 16:41
vlad372 Дата: Четверг, 12.03.2015, 19:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо добрый человек!! Есть еще варианты? Оч хотелось бы кнопки именно а не гиперссылку.
 
Ответить
СообщениеСпасибо добрый человек!! Есть еще варианты? Оч хотелось бы кнопки именно а не гиперссылку.

Автор - vlad372
Дата добавления - 12.03.2015 в 19:00
doober Дата: Пятница, 13.03.2015, 00:45 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Цитата
Есть еще варианты?

Yes. B)
К сообщению приложен файл: excel_.xlsm (18.3 Kb)


 
Ответить
Сообщение
Цитата
Есть еще варианты?

Yes. B)

Автор - doober
Дата добавления - 13.03.2015 в 00:45
antycapral Дата: Пятница, 13.03.2015, 10:20 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 62
Репутация: 5 ±
Замечаний: 0% ±

Excel 2016
Сергей добрый день.
в 2003 только окно открывается в IE .
номера трека нет (((
 
Ответить
СообщениеСергей добрый день.
в 2003 только окно открывается в IE .
номера трека нет (((

Автор - antycapral
Дата добавления - 13.03.2015 в 10:20
Manyasha Дата: Пятница, 13.03.2015, 10:59 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Можно еще так (должны открываться в браузере по умолчанию):
[vba]
Код
Sub Set_links()
i = 1
      For Each Sh In ActiveSheet.Shapes
          Sh.Select
          temp = "http://www.russianpost.ru/tracking20/?" & Cells(i, 1).Value
          ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=temp
          i = i + 1'добавила
      Next Sh
End Sub
[/vba]

UPD. забыла про i.
Файл перезалила
К сообщению приложен файл: excel_1.xlsm (18.6 Kb)


ЯД: 410013299366744 WM: R193491431804

Сообщение отредактировал Manyasha - Пятница, 13.03.2015, 11:02
 
Ответить
СообщениеМожно еще так (должны открываться в браузере по умолчанию):
[vba]
Код
Sub Set_links()
i = 1
      For Each Sh In ActiveSheet.Shapes
          Sh.Select
          temp = "http://www.russianpost.ru/tracking20/?" & Cells(i, 1).Value
          ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=temp
          i = i + 1'добавила
      Next Sh
End Sub
[/vba]

UPD. забыла про i.
Файл перезалила

Автор - Manyasha
Дата добавления - 13.03.2015 в 10:59
doober Дата: Пятница, 13.03.2015, 12:04 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Добрыйю
Можно так
[vba]
Код
Sub Get_Site()
     Dim GL, Shap
     GL = Application.Caller
     Shap = ActiveSheet.Shapes(GL).TopLeftCell.Offset(0, -1)
     With CreateObject("WScript.Shell")
         .Run "http://www.russianpost.ru/tracking20/?" & Shap
     End With
End Sub
[/vba]


 
Ответить
СообщениеДобрыйю
Можно так
[vba]
Код
Sub Get_Site()
     Dim GL, Shap
     GL = Application.Caller
     Shap = ActiveSheet.Shapes(GL).TopLeftCell.Offset(0, -1)
     With CreateObject("WScript.Shell")
         .Run "http://www.russianpost.ru/tracking20/?" & Shap
     End With
End Sub
[/vba]

Автор - doober
Дата добавления - 13.03.2015 в 12:04
vlad372 Дата: Пятница, 13.03.2015, 13:39 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо!!! Супер!


Сообщение отредактировал Serge_007 - Пятница, 13.03.2015, 16:55
 
Ответить
СообщениеСпасибо!!! Супер!

Автор - vlad372
Дата добавления - 13.03.2015 в 13:39
vlad372 Дата: Пятница, 13.03.2015, 13:57 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
А если усложнить задачу ? возможно ли ко всему этому еще и подключить сервис https://rucaptcha.com что б не вводить капчи??? Понимаю что это перебор. Но может все-таки кто то сможет. вот логин и пароль для входа в личный кабинет rucaptcha там положительный баланс. Надеюсь на порядочность=)
LOGIN: vlad372@yandex.ru
PASS: 5355559
За решение данной задачи хотелось бы даже отблагодарить человека 500р. на телефон. понимаю не много, но чем богаты так сказать.
 
Ответить
СообщениеА если усложнить задачу ? возможно ли ко всему этому еще и подключить сервис https://rucaptcha.com что б не вводить капчи??? Понимаю что это перебор. Но может все-таки кто то сможет. вот логин и пароль для входа в личный кабинет rucaptcha там положительный баланс. Надеюсь на порядочность=)
LOGIN: vlad372@yandex.ru
PASS: 5355559
За решение данной задачи хотелось бы даже отблагодарить человека 500р. на телефон. понимаю не много, но чем богаты так сказать.

Автор - vlad372
Дата добавления - 13.03.2015 в 13:57
Pelena Дата: Пятница, 13.03.2015, 14:52 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
vlad372, насколько я понимаю, этот вопрос выходит за рамки заявленной темы. Создавайте новую (можно в платном разделе).
И персональные данные лучше не выкладывать в открытый доступ


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеvlad372, насколько я понимаю, этот вопрос выходит за рамки заявленной темы. Создавайте новую (можно в платном разделе).
И персональные данные лучше не выкладывать в открытый доступ

Автор - Pelena
Дата добавления - 13.03.2015 в 14:52
wild_pig Дата: Пятница, 13.03.2015, 21:03 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
[offtop]Прикольный сервис, думал 1000000 китайцев капчи набирают, а оказалось свой производитель.[/offtop]
 
Ответить
Сообщение[offtop]Прикольный сервис, думал 1000000 китайцев капчи набирают, а оказалось свой производитель.[/offtop]

Автор - wild_pig
Дата добавления - 13.03.2015 в 21:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автозаполнение поля на сайте Почты рф (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!