Excelden veb sayfasına veri gönderiyorum.bir yerde takıldım. bu sayfada 3 adet button var.
üç butonun name=button aşağıdaki gibi
<td><input type="button" name="button" id="button" align="left" value=". Kayıt Görüntüleme ." onclick="kayitGoruntule();"
<td><input type="button" name="button" id="button" align="left" value=". Kayıt Güncelleme / Kamu İdaresi İçi Nakil ." onclick="icNakil();"
<td><input type="button" name="button" id="button" align="left" value=". Tekrar Tescil / Kamu İdaresi Dışı Nakil ." onclick=disNakil();></td>
komutları
.document.all.Item("butonTcAra").Click .....gibi göneriyorum.
bu üç butondan herhangi birini nasıl seçebilirim.
buton seçimi
Excel mi? Visual Basic mi?
<<< 10-HAGİ-10 >>>
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
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
Sayın nihatra lütfen Site Kurallarını okuyunuz. Sorunuz ile ilgili örnek dosyanızı ekleyiniz. Her soruyu soran için örnek hazırlamak bizim için çok ciddi zaman kaybı oluyor. Ayrıca acil, ölüyorum, bittim, işten kovulacağım vb. ifadeler sorunuzun çözülmesini günlerce geciktirir.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Sn:nihatra
Site içerisinde arama yapmış olsaydınız bu konu ile birçok örnek var.Aşağıdaki linkte bunlardan bir tanesidir.
Not:Arkadaşımız siteye girip çıkmasına rağmen konuya dönüş yapmamıştır.Konu cevaplanmışlara taşınmıştır.
Vergi Dairesinden Pos Sorgulama
Site içerisinde arama yapmış olsaydınız bu konu ile birçok örnek var.Aşağıdaki linkte bunlardan bir tanesidir.
Not:Arkadaşımız siteye girip çıkmasına rağmen konuya dönüş yapmamıştır.Konu cevaplanmışlara taşınmıştır.
Vergi Dairesinden Pos Sorgulama
Konuyu Okuyanlar: 1 Ziyaretçi