kodlarım aşağıdadır. acil cevap bekliyorum.
Private Sub CommandButton1_Click()
On Error Resume Next
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate "http://uygweb.sgk.gov.tr/............."
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
.document.all.Item("kulAd").Value = "" 'Kullanıcı Adı
.document.all.Item("sifre").Value = "" 'şifre
.document.all.Item("Submit").Click
.document.all.Item("Submit").Click
.document.all.Item("comboUyruk").Value = "TC"
.document.all.Item("txtTcno").Value = Sheets("Sayfa2").Range("A3") 'TC KİMLİK NUMARASI
.document.all.Item("butonTcAra").Click
'bu arada name=button olan 4 tane buton var birini seçmek istiyorum
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
Set IE = Nothing
End Sub
buton seçimi
Bu Konudaki Yorumlar |
buton seçimi - Yazar: nihatra - 01/02/2012, 09:41
Cvp: buton seçimi - Yazar: mcmaho - 01/02/2012, 14:04
Cvp: buton seçimi - Yazar: nihatra - 02/02/2012, 09:25
Cvp: buton seçimi - Yazar: alpeki99 - 02/02/2012, 10:40
Cvp: buton seçimi - Yazar: ogulcan92 - 20/04/2012, 13:17
|
Konuyu Okuyanlar: 1 Ziyaretçi