Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

Коллеги,
меня можно поздравить
Вот программа, которая работает у меня:
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,907
По умолчанию

Цитата:
Сообщение от 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
По умолчанию

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

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

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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