• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

SGK Çıkış

  • Konbuyu başlatan Konbuyu başlatan Prostar
  • Başlangıç tarihi Başlangıç tarihi
Katılım
22 Kasım 2007
Mesajlar
10
Excel Vers. ve Dili
....
SGK işten ayrılış sayfasında şu kodları yazdığımda
Sub SGK()
ADRES = "http://uyg.sgk.gov.tr/SigortaliTescil/jsp/istenAyrilis.jsp"
Set Uygulama = CreateObject("InternetExplorer.Application")
With Uygulama
.Visible = True
.Navigate ADRES
Do While .ReadyState <> 4: Loop
With .Document.All
.TCKNo.Value = "51206402536"
.tx_TekIsCikTarGG.Value = "22"
.tx_TekIsCikTarAA.Value = "10"
.tx_TekIsCikTarYY.Value = "2012"
.button1.Click
End With
End With
End Sub

Bu sayfa açılıyor.
f5rbr.gif
[/url][/IMG]


Açılan bu sayfadaki Cadde bölümüne : Atatürk Caddesi yazdırmak istiyorum. Ancak bu sayfaya
Sub VeriGonder()
ADRES = "http://uyg.sgk.gov.tr/SigortaliTescil/amp/sigortaliTescilAction"
Set Uygulama = CreateObject("InternetExplorer.Application")
With Uygulama
.Visible = True
.Navigate ADRES
Do While .ReadyState <> 4: Loop
With .Document.All
.tx_Cadde = "Cadde Adı"
End With
End With
End Sub
Gibi bir kodla veri gönderemedim. Çünkü bu sayfa yeniden oluşturulmamalı, yani ben oluşan bu sayfaya nasıl veri gönderebilirim, bu sayfayı bir nesne olarak ele almak ve veri göndermek mümkün müdür?
 
Geri
Üst