Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 17.11.2012, 18:04   #21
tosha_79
Новичок
Джуниор
 
Регистрация: 15.11.2012
Адрес: Питер
Сообщений: 14
Репутация: 10
По умолчанию

Коллеги,
меня можно поздравить
Вот программа, которая работает у меня:
Sub VSOL()
Set ie = CreateObject("InternetExplorer.Appl ication"): DoEvents
NavStr = "http://www.virtualsoccer.ru/"
ie.Navigate NavStr
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend

Set ieDoc = ie.Document
If ieDoc.Title Like "I^?e`a'e^a` n~a*?o`e`o^e`e^a`o`a`*" Or ieDoc.Title Like "Certificate Error*" Then
ieDoc.Links(1).Click
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend
Set ieDoc = ie.Document
End If

With ieDoc
.all("login_n").Value = "Сюда ввожу свой логин"
.all("login_p").Value = "Сюда ввожу свой пароль"
.all("login_form").Click
For i = 1 To 1000: DoEvents: Next
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend
End With

For i = 1 To 20000: DoEvents: Next
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend

For i = 0 To ie.Document.all.Length - 1
Cells(i + 1, 1).Value = ie.Document.all.Item(i).innerText
Next

ie.Quit
Set ie = Nothing
End Sub

Но работает не так как мне надо. Она импортирует текст только с главной страницы, а мне нужна инфа именно с ростера. Буду разбираться как программой перейтина другую страницу.

Последний раз редактировалось tosha_79; 17.11.2012 в 18:06.
tosha_79 вне форума   Ответить с цитированием
Старый 17.11.2012, 18:25   #22
doober
Профессионал
 
Аватар для doober
 
Регистрация: 02.05.2009
Адрес: Леса Мордовии
Сообщений: 3,903
Репутация: 650

skype: d_ober1
По умолчанию

Цитата:
Сообщение от tosha_79 Посмотреть сообщение
Коллеги,
меня можно поздравить
Вот программа, которая работает у меня:
Sub VSOL()
рано.Ведь авторизацию вы не прошли.Так будет правильно
Код:
  With ieDoc
        .all("login_n").Value = "Сюда ввожу свой логин"
        .all("login_p").Value = "Сюда ввожу свой пароль"
        .all("login_form").all(32).onclick
        For i = 1 To 1000: DoEvents: Next
        While ie.busy Or (ie.readyState <> 4): DoEvents: Wend
    End With
__________________
Анализ,обработка данных Недорого
doober вне форума   Ответить с цитированием
Старый 17.11.2012, 19:04   #23
tosha_79
Новичок
Джуниор
 
Регистрация: 15.11.2012
Адрес: Питер
Сообщений: 14
Репутация: 10
По умолчанию

А какая команда в данном случае для запуска авторизации?
В смысле я понимаю что onclick, но чем отличается onclick от click?

Стягивает инфу с ростера прогресс.
1. Теперь нужно почитать в инете, как сделать так что бы стягивало инфу с моей 3й команды, а не первой, которая загружается при авторизации.

2. Так же , если кто может посоветуйте, где можно найти инфу, что бы я мог сделать в макросе программу, которая позволяла бы стягивать инфу в удобном виде, а не только в первую колонку в Экселе. Очень неудобно. Если будет стягиваться инфа с сайта в эксель по ячейкам и вниз и вправо было бы намного удобнее такую инфу обрабатывать

Последний раз редактировалось tosha_79; 17.11.2012 в 19:38.
tosha_79 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Импорт текста в готовый написанный другими эксель Novich Microsoft Office Excel 7 24.08.2011 13:46
Импорт из дбгрида в эксель Ake Общие вопросы Delphi 4 24.12.2010 23:51
импорт в эксель Demonmov Microsoft Office Excel 2 28.04.2010 10:07


17:04.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.