Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Апрель 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
17.04.2010
00:08:27
20:03:59
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.825 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный хостинг на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гаряка Асмик
Статус: Специалист
Рейтинг: 3026
∙ повысить рейтинг » 		Vasiliy83
Статус: Бакалавр
Рейтинг: 1457
∙ повысить рейтинг » 		Megaloman
Статус: Профессионал
Рейтинг: 1139
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Basic/VBA

Номер выпуска:1005
Дата выхода:04.04.2010, 05:00
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:349 / 100
Вопросов / ответов:1 / 1

Вопрос № 177551: Ранее я задавал эот вопрос № 175400 Уважаемые эксперты, подскажите можно ли и как при помощи ВБА на открытой ВЭБ странице узнать количество, имена форм ссылок, флажков, полей для ввода информации, полей передающих сообщение и других сост...

Вопрос № 177551:

Ранее я задавал эот вопрос № 175400

Уважаемые эксперты, подскажите можно ли и как при помощи ВБА
на открытой ВЭБ странице узнать количество, имена форм ссылок, флажков, полей
для ввода информации, полей передающих сообщение и других составляющих
ВЭБ страницы, а также узнать их ID. Значение поля передающего сообщение, то есть та информация, которая им выдаётся.

Получил ответ:

Dim ie As Object
Dim control As Object
Dim collection As Object
Dim i As Integer
Dim controlnames() As String
Dim checkboxcount, textareacount, textboxcount, buttoncount, linkscount As Integer
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate (...")
Do While ie.ReadyState <> 4
DoEvents


i = 1
If ie.Document.Frames.Length = 0 Then
Set collection = ie.Document.forms(0)
Else
Set collection = iie.Document.Frames(1).Document.forms(0)
End If
ReDim controlnames(0 To co llection.Length)
For Each control In collection
controlnames(i) = control.ID
i = i + 1
If control.Type = "checkbox" Then
checkboxcount = checkboxcount + 1
End If
If control.Type = "text" Or control.Type = "password" Then
textboxcount = textboxcount + 1
End If
If control.Type = "textarea" Then
textareacount = textareacount + 1
End If
If control.Type = "button" Or control.Type = "submit" Or control.Type = "reset" Then
buttoncount = buttoncount + 1
End If
Next control
linkscount = ie.Document.Links.Length


Но на строке ie.navigate (...") получаю синтаксическую ошибку
Скажите почему??? Как изменить???

Отправлен: 30.03.2010, 04:55
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает F®ost, Советник :
Здравствуйте, Ципихович Эндрю.
Вставьте вместо скобок реальный URL, например ie.navigate "http://www.google.com".
По поводу ошибки 91 в строке ReDim controlnames(0 To collection.Length). (Из мини-форума)
Эта ошибка говорит, что Вы попытались использовать свойство объекта без доступного объекта. Для исправления ошибки надо проверить, что объект создан и инициализирован, а также что Вы использовали ключевое слово Set при создании ссылки на объект.
Удачи!
-----
От вопроса к ответу, от проблемы к решению

Ответ отправил: F®ost, Советник
Ответ отправлен: 31.03.2010, 10:00
Номер ответа: 260482
Беларусь, Минск
Тел.: 375292792018
Организация: Минский Промтранспроект
Адрес: ул. В.Хоружей, 13, г. Минск, Беларусь
Адрес сайта: http://www.mptp.by

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 260482 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.14 от 03.03.2010
    В избранное