Zautomatyzuj sieć za pomocą excel vba

0

Próbuję zautomatyzować tę stronę: „checkcosmetic.net” przy użyciu excel vba. Do tej pory zrobiłem:

Dim ie As New InternetExplorer
Dim frm As Object
Dim htm As HTMLDocument
____________________________________________________

Sub checkNow()
ie.navigate ("www.checkcosmetic.net")
ie.Visible = True
ie.Silent = True
Do
Loop Until ie.readyState = READYSTATE_COMPLETE
Set htm = ie.document
Set frm = htm.forms.Item

For Each elm In frm
'
'how to select "brands?"
'
If elm.ID = "codeinput" Then
elm.Value = "09076JU40" 'LOT No. of a Vaseline body moisturizing cream
End If

If elm.ID = "codesubmit" Then
elm.Click 'not triggering?
End If
Next elm
End Sub

Nie mogę programowo wybrać listy opcji.
Moim celem jest sprawdzenie daty ważności kosmetyków z Excela.
Na przykład:
produkt: „wazelina”, numer partii: „09076JU40” = & gt; „7 września 2016 r.”

imRen
źródło
Ten kod nigdy nie pozwoli na edycję danych w Excelu. Ponieważ nawigujesz po stronie nie na arkuszu ,, !!
Rajesh S
Wiem. Mam zakodowane „źródło danych”
imRen
Myślę, że jesteś zmieszany !! Jedną z metod, którą mogę zasugerować, jest udostępnienie linku do pliku Excel na stronie internetowej do edycji.
Rajesh S
Nie jestem zmieszany. Jeśli ktoś mógłby mi pomóc zmienić „listę opcji” za pomocą kodu, mogę zrobić resztę… Mam na myśli to, że mogę połączyć się z danymi Excel sam. Dziękuję Ci. (Zrobiłem to dla potrząsania prostotą)
imRen