- Katılım
- 5 Nisan 2007
- Mesajlar
- 413
- Excel Vers. ve Dili
- excel 2010 tr
Sub SGKBORÇSORGU()
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://uyg.sgk.gov.tr/IsverenBorcSorgu/borc/donemselBorc.action"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.userLogin_basvuru_tcKimlikNo.Value = "10101011010"
.document.all.userLogin_basvuru_isyeriKodu.Value = "1"
.document.all.userLogin_basvuru_sistemSifre.Value = "11111"
.document.all.userLogin_basvuru_isyeriSifre.Value = "22222"
End With
End Sub
t
Bu kod sayesinde excel sayfasına eklenen herhangi bir butonla sgk borç sorgulama uygulamasına otomatik giriş yapıyorum
ancak asıl istediğim
https://ebildirge.sgk.gov.tr/EBildirgeV2 e-bildirge uygulaması ile
https://uyg.sgk.gov.tr/vizite/welcome.do sgk e-vizite uygulamaları içinde kullanmak istiyorum
Altın üyeniz değilim maalesef ama çok yardımlarınızı gördüm umarım bu konuya da bir çözüm bulunur
saygılarımla.
Set xd = CreateObject("internetexplorer.application")
With xd
.navigate "https://uyg.sgk.gov.tr/IsverenBorcSorgu/borc/donemselBorc.action"
.Visible = True
Do While .busy: DoEvents: Loop
Do While .readystate <> 4: DoEvents: Loop
.document.all.userLogin_basvuru_tcKimlikNo.Value = "10101011010"
.document.all.userLogin_basvuru_isyeriKodu.Value = "1"
.document.all.userLogin_basvuru_sistemSifre.Value = "11111"
.document.all.userLogin_basvuru_isyeriSifre.Value = "22222"
End With
End Sub
t
Bu kod sayesinde excel sayfasına eklenen herhangi bir butonla sgk borç sorgulama uygulamasına otomatik giriş yapıyorum
ancak asıl istediğim
https://ebildirge.sgk.gov.tr/EBildirgeV2 e-bildirge uygulaması ile
https://uyg.sgk.gov.tr/vizite/welcome.do sgk e-vizite uygulamaları içinde kullanmak istiyorum
Altın üyeniz değilim maalesef ama çok yardımlarınızı gördüm umarım bu konuya da bir çözüm bulunur
saygılarımla.