Добрый день!
Подскажите, кто знает, з чего начать. Мне нужно читать текст и заполнять поля из этой странички, нажимать на кнопки (из ВБА) -
http://cis.samsungportal.com/EP/web/portal/jsp/EP_IDefault.jsp
Как я могу обратиться к элементам этого документа?

Спасибо за ответы.

Получаю я IE.Document. Пытаюсь перебрать все теги - а там их и нету толком. При просмотре HTML-кода там 4 строчки. Ни одного текстареа, ни инпута... Какже всетаки можно заполнять поля через ВБА на этой страничке? 100% это возможно - это делает робоформ. С другими HTML документами я справляюсь, а этот попался какойто... Кто подскажет, з чего начать?

Спасибо

Подскажите, что делаю не так. Сканирую HTML Document этой програмкой. ищу на нем все формы. Перебираю рекурсивно фреймы. Ну никак не нахжу нужную мне форму с полями... Нужно добраться до всех "инпут" и передавать им мои значения из ВБА. Подскажите, тко чем знгает.

Public Sub HDocAnaliz(HDoc As HTMLDocument, OffSet As String)
Dim HDoc1 As HTMLDocument
Dim HFrm As HTMLFormElement, HEl As IHTMLInputElement, HFEl As IHTMLFormElement ' IHTMLElement
Dim HElCol As IHTMLElementCollection
On Error Resume Next
Debug.Print OffSet; "BEGIN ======================"
Debug.Print OffSet; "Frames"; HDoc.frames.Length; " Forms"; HDoc.forms.Length
Debug.Print "URL "; HDoc.URL
Debug.Print "Title "; HDoc.Title

On Error Resume Next
Set HElCol = HDoc.all.tags("input")
For Each HEl In HElCol
Debug.Print HEl.Name
Debug.Print HEl.form
Debug.Print HEl.Type
Debug.Print HEl.Value
'Next HEl

On Error GoTo NoFrame
For i = 0 To HDoc.frames.Length - 1
Debug.Print OffSet; "frame="; i; " "
Debug.Print OffSet; "frame="; HDoc.frames(i).Name; " "
Set HDoc1 = HDoc.frames.Item(i).document
On Error Resume Next
Call HDocAnaliz(HDoc1, OffSet & "-")
Set HDoc1 = Nothing
Next i
NoFrame:
On Error Resume Next
For Each HFrm In HDoc.forms
For Each HEl In HFrm.elements
Debug.Print OffSet; "Form"; " "; HFrm.Name; " "; HEl.Name; " "; HEl.Title; " = "; HEl.Value
Next HEl
Next HFrm


'For i = 0 To HDoc.all.Length
' Debug.Print HDoc.all.Item(i).tagName
' Debug.Print HDoc.all.Item(i).Name
' Debug.Print HDoc.all.Item(i).Value
'Next i
Debug.Print OffSet; "END ======================"
End Sub