Web sayfasındaki açılır menüye makro ile bilgi girişi

[hryildirim]

Bir internet portalına makro ile otomatik bilgi girişi yapmaya çalışıyorum fakat yapamadığım açılır menüye bilgi girişi yapamıyorum. direk boş bıraktırıyor. Bu konuda yardımcı olabilirmisiniz. Sayfanın açılır menülü olan kısmı aşağıdaki gibidir.

<TD class=servHd noWrap align=left width=133>Parça Kodu</TD>
<TD class=servBodL noWrap colSpan=4><SELECT size=1 name=f_parcaKodu id=SELECT1>
<OPTION selected>0077935680E</OPTION> <OPTION>0467489050E</OPTION>
<OPTION>0467532040E</OPTION> <OPTION>0467536900E</OPTION>
<OPTION>0467607450E</OPTION> <OPTION>0467607460E</OPTION>
OPTION>8200672792</OPTION>
<OPTION>8200672793</OPTION></SELECT></TD></TR>
<TR>


Makro ise aşağıdaki gibidir. Fakat portala statik ip ile giriş mümkün bu nedenle giriş yapılmaz.
Sub portalgiris()
Dim URL As String
Dim IE As Object
Dim dongu As Integer
URL = "http://portal.xxxxxxx.com.tr/frm_login.asp"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL
Do While .ReadyState <> 4: Loop
With .document.All
.frm_login_kodu.Value = "xxxxxx"
.frm_login_kadi.Value = "xxxxxx"
.frm_login_parola.Value = "xxxxxx"
End With
.document.forms(0).submit
Do While .ReadyState <> 4: Loop
End With
URL = "http://portal.xxxxxx.com.tr/page.asp?pageid=frm_siparis_etiket"
With IE
.Visible = True
.Navigate URL
Application.Wait Now + TimeValue("00:00:03")
Do While .ReadyState <> 4: Loop
With .document.All
.f_miktar.Value = etiket.adet.Value
.f_ambalajMiktari(0).Value = etiket.kasaad.Value
.f_irsaliyeNo(0).Value = etiket.irsaliyeno.Value
.f_sevkTarihi.Value = etiket.Calendar5.Value
.f_partiNo(0).Value = etiket.refno.Value
.f_kasaTipi(0).Value = etiket.kasatip.Value
.f_netAgirlik(0).Value = etiket.netagirlik.Value
.f_brutAgirlik(0).Value = etiket.brutagirlik.Value
For dongu = 1 To 1000
.f_parcaKodu(0).Focus
.f_parcaKodu(0).Value = etiket.firstkr.Value
etiket.parcakodportal.Value = .f_parcaKodu(0).Value
If etiket.parcakodportal.Value = etiket.urunad.Value Then
dongu = 1000
Else
dongu = dongu + 1
End If
Next dongu
End With
.document.forms(0).submit
Do While .ReadyState <> 4: Loop
End With

Set IE = Nothing
End Sub

 

[hryildirim]

web sayfasında bulunan açılır menü içindeki verileri seçmek

arkadaşlar biraz daha açıklama yapayım dedim. İhtiyacım olan sayfada bulunan ve önceden tanımlanmış olan verilerin açılır menüden seçilmesi. veri girişi yaptığımda boş kalıyor .