sendkey ile veri gönderme

[nihatra]

bu web sitesindeki textboxlara excelden veri nasıl gönderebilirim?(sendkeyle ve daha farklı bir çözüm)(kopyala/yapıştır)çoklu olursa sevinirim

sayfa şifreli olduğu için açılmayabilir veriler buradaki forma gönderilecek

 

[Zeki Gürsoy]

http://uygweb.sgk.gov.tr/SigortaliTescil4c/amp/TescilAction

bu web sitesindeki textboxlara excelden veri nasıl gönderebilirim?(sendkeyle ve daha farklı bir çözüm)(kopyala/yapıştır)çoklu olursa sevinirim

sayfa şifreli olduğu için açılmayabilir veriler buradaki forma gönderilecek

Sub SGK_Test()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .Visible = True
        .navigate "http://uygweb.sgk.gov.tr/SigortaliTescil4c/Pages/tcGirisi.jsp"
        
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        
        .document.all.Item("kulAd").Value = "" [COLOR=DarkGreen]'Kullanıcı Adı[/COLOR]
        .document.all.Item("sifre").Value = "" [COLOR=DarkGreen]'şifre[/COLOR]
        .document.all.Item("Submit").Click
        
    End With

    Set IE = Nothing
End Sub

 

[nihatra]

teşekkür ederim site açıldıktan sonra excelden textboxlara veri nasıl gönderilir bu kodların altına ekleyebilir misiniz?

 

[Zeki Gürsoy]

Kodun içinde belirttim zaten...

 

[nihatra]

excelden gönderilecek verileri
anlayamadım

 

[Zeki Gürsoy]

Demek istediğiniz kull. adı ve şifre girişinden sonraki aşama ise, bunu bilemem.
Gerçek bir oturum açıp o aşamadaki sayfayı incelemem gerek.

 

[nihatra]

input name="txtBulvar"
input name="txtDisKapi"
input name="txtCadde"
input name="txtIcKapi"
input name="txtSokak"
input name="txtMahalle" gibi textboxlara excelden veri göndereceğim.

 

[Zeki Gürsoy]

Bu durumda aşağıdaki gibi olacak...

Sub SGK_Test2()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .Visible = True
        .navigate "http://uygweb.sgk.gov.tr/SigortaliTescil4c/Pages/tcGirisi.jsp"
        
        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
        
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
        
        .document.all.Item("txtBulvar").Value = ""
        .document.all.Item("txtDisKapi").Value = ""
        .document.all.Item("txtCadde").Value = ""
        .document.all.Item("txtIcKapi").Value = ""
        .document.all.Item("txtSokak").Value = ""
        .document.all.Item("txtMahalle").Value = ""
    End With

    Set IE = Nothing
End Sub

 

[nihatra]

.document.all.Item("txtBulvar").Value = "" bu gibi yerlere excel sayfasında ne yazılacak (Sheets("SAYFA1").Cells(1, 1).True) böyle bir kod mu yazılacak

 

[Korhan Ayhan]

Merhaba,

"=" ifadesinden sonra aşağıdaki gibi sayfa adı ve hücre adresi belirtmeniz yeterli olacaktır.

.document.all.Item("txtBulvar").Value = Sheets("Sayfa1").Range("A1")

 

[Korhan Ayhan]

Merhaba,

Combobox için aşağıdaki şekilde deneyiniz.

.document.all.Item("comboUyruk").Value = "TÜRKİYE"

 

[nihatra]

Sn Korhan Ayhan
teşekkürler

.document.all.Item("Submit").(bu clicklenmeyecek)
.document.all.Item("Submit").Click
.document.all.Item("Submit").(bu da clicklenmeyecek)
bu sorumuda cevaplarsanız çok mutlu olacağım.

 

[halit3]

Bunlar belki işinize yarıyabilir.

.Document.all("comboUyruk").selectedIndex = 0 ' veya 1
.document.all("txtTcno").OnChange
.document.Forms(0).submit
'veya
.document.Forms(1).submit

 

[aze505]

Kolay gelsin arkadaşlar. Bununla ilgili bir örnek dosya gönderebilirmisiniz?