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

Вход

Регистрация

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

 

= Мир MS Excel/VBA and Javascript & парсер - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA and Javascript & парсер (Макросы/Sub)
VBA and Javascript & парсер
Elhust Дата: Вторник, 20.06.2017, 12:26 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток уважаемые специалисты и просто гуру.
прошу вашей помощи так как не знаю где брать информацию (
нашел статью
http://smart-lab.ru/blog/235132.php
тут описывается алгоритм парсера и что использует парсер
А вопрос такой там написано что используется javascript
Вот код он подключается к mail.ru и логинится в почте
вроде всё просто ... но видно не для меня как для новичка в этом вопросе
на сколько я понял надо подключить библиотеку javascript
и код у меня не логинится ...
[vba]
Код

Public Sub EnterToMailRu()
  Const conLogin As String = «fff»
   Const conPassword As String = «123456»
   Dim i As Integer
   Dim IE As Object
   'Dim varReturn As Variant
   Set IE = CreateObject(«InternetExplorer.Application»)
   IE.Visible = True
   IE.Navigate ("http://www.mail.ru")
   'varReturn = SysCmd(acSysCmdInitMeter, «Entering to Mail.Ru ...», 100)
   While CBool(IE.Busy)
       i = i + 1
       'varReturn = SysCmd(acSysCmdUpdateMeter, Int(i / 30000 * 100))
       If i > 29999 Then
          'varReturn = SysCmd(acSysCmdClearStatus)
          Beep
          MsgBox «Something Is wrong.Mail.Ru Is Not accessible», vbCritical, «Mail.Ru»
          IE.Quit
          Set IE = Nothing
          Exit Sub
       End If
       DoEvents
   Wend
   'varReturn = SysCmd(acSysCmdClearStatus)
   IE.document.Forms.Auth.Login.Value = conLogin
   IE.document.Forms.Auth.Password.Value = conPassword
   IE.document.Forms.Auth.submit
   Set IE = Nothing
End Sub
[/vba]


Каждый сам выбирает правила игры
 
Ответить
СообщениеДоброго времени суток уважаемые специалисты и просто гуру.
прошу вашей помощи так как не знаю где брать информацию (
нашел статью
http://smart-lab.ru/blog/235132.php
тут описывается алгоритм парсера и что использует парсер
А вопрос такой там написано что используется javascript
Вот код он подключается к mail.ru и логинится в почте
вроде всё просто ... но видно не для меня как для новичка в этом вопросе
на сколько я понял надо подключить библиотеку javascript
и код у меня не логинится ...
[vba]
Код

Public Sub EnterToMailRu()
  Const conLogin As String = «fff»
   Const conPassword As String = «123456»
   Dim i As Integer
   Dim IE As Object
   'Dim varReturn As Variant
   Set IE = CreateObject(«InternetExplorer.Application»)
   IE.Visible = True
   IE.Navigate ("http://www.mail.ru")
   'varReturn = SysCmd(acSysCmdInitMeter, «Entering to Mail.Ru ...», 100)
   While CBool(IE.Busy)
       i = i + 1
       'varReturn = SysCmd(acSysCmdUpdateMeter, Int(i / 30000 * 100))
       If i > 29999 Then
          'varReturn = SysCmd(acSysCmdClearStatus)
          Beep
          MsgBox «Something Is wrong.Mail.Ru Is Not accessible», vbCritical, «Mail.Ru»
          IE.Quit
          Set IE = Nothing
          Exit Sub
       End If
       DoEvents
   Wend
   'varReturn = SysCmd(acSysCmdClearStatus)
   IE.document.Forms.Auth.Login.Value = conLogin
   IE.document.Forms.Auth.Password.Value = conPassword
   IE.document.Forms.Auth.submit
   Set IE = Nothing
End Sub
[/vba]

Автор - Elhust
Дата добавления - 20.06.2017 в 12:26
Manyasha Дата: Вторник, 20.06.2017, 12:48 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1896
Репутация: 780 ±
Замечаний: 0% ±

Excel 2010, 2016
Elhust, здравствуйте, для этого кода не нужно подключать дополнительных библиотек.
Замените все кавычки на двойные ("), после смены у меня все заработало.


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеElhust, здравствуйте, для этого кода не нужно подключать дополнительных библиотек.
Замените все кавычки на двойные ("), после смены у меня все заработало.

Автор - Manyasha
Дата добавления - 20.06.2017 в 12:48
Elhust Дата: Вторник, 20.06.2017, 13:06 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Manyasha, О даа спасибо большое ! а я ещё с начало просто их убрал и подумал надо наверное другие и в итоге ушел не туда ... но у меня ещё одна проблема ... теперь ошибка на строчке
[vba]
Код

Set IE = CreateObject(«InternetExplorer.Application»)
[/vba]
424 object required

на сколько понимаю тут идёт подключение так скажем и оно не идёт возможно из за того что у меня на компе стоит прокси и там надо вводить имя пользователя и пароль
https://stackoverflow.com/questio....d-excel
тут что то про это пишут но я .. это я молчу..


Каждый сам выбирает правила игры
 
Ответить
СообщениеManyasha, О даа спасибо большое ! а я ещё с начало просто их убрал и подумал надо наверное другие и в итоге ушел не туда ... но у меня ещё одна проблема ... теперь ошибка на строчке
[vba]
Код

Set IE = CreateObject(«InternetExplorer.Application»)
[/vba]
424 object required

на сколько понимаю тут идёт подключение так скажем и оно не идёт возможно из за того что у меня на компе стоит прокси и там надо вводить имя пользователя и пароль
https://stackoverflow.com/questio....d-excel
тут что то про это пишут но я .. это я молчу..

Автор - Elhust
Дата добавления - 20.06.2017 в 13:06
AndreTM Дата: Вторник, 20.06.2017, 15:46 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1541
Репутация: 444 ±
Замечаний: 0% ±

2003 & 2010
А порыться в скриптах на том сайте не пробовали?


Donate: Qiwi: 9517375010
 
Ответить
СообщениеА порыться в скриптах на том сайте не пробовали?

Автор - AndreTM
Дата добавления - 20.06.2017 в 15:46
Elhust Дата: Среда, 21.06.2017, 08:09 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
AndreTM, Ооо yes сейчас буду изучать Биг Thanks !


Каждый сам выбирает правила игры
 
Ответить
СообщениеAndreTM, Ооо yes сейчас буду изучать Биг Thanks !

Автор - Elhust
Дата добавления - 21.06.2017 в 08:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA and Javascript & парсер (Макросы/Sub)
Страница 1 из 11
Поиск:

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